Question

Помогите, пожалуйста, решить задачу на Паскале.Строка содержит одно слово. Проверить, будет ли оно читаться одинаково справа налево и слева направо.При условии, что выполнение цикла будет закончено после найденной неравной пары.

Answer 1

Program lena1PL;
var s:string;   
i,c:integer;
begin
readln(s);
for i:=1 to (length(s) div 2) do
if s[i]=s[length(s)-i+1] then inc(c,1)
else begin writeln('HET'); exit; end;
if c=(length(s) div 2) then writeln('DA');
end.

Answer 2

Конечно, вот пример кода на Паскале, который решает данную задачу:

program CheckPalindrome;
var
  word, reverseWord: string;
  i: integer;
  isPalindrome: boolean;
begin
  writeln('Введите слово:');
  readln(word);
  
  reverseWord := '';
  for i := Length(word) downto 1 do
  begin
    reverseWord := reverseWord + word[i];
  end;
  
  isPalindrome := true;
  for i := 1 to Length(word) do
  begin
    if word[i] <> reverseWord[i] then
    begin
      isPalindrome := false;
      break;
    end;
  end;
  
  if isPalindrome then
    writeln('Слово является палиндромом')
  else
    writeln('Слово не является палиндромом');
end.

Этот код сначала запрашивает у пользователя ввести слово, затем он создает обратное слово, зеркально отражая исходное. Затем он сравнивает символы в исходном и обратном словах, чтобы определить, является ли слово палиндромом. Когда найдена неравная пара, цикл завершается, и программа сообщает, является ли слово палиндромом или нет.

Надеюсь, это поможет вам решить задачу на Паскале!