Question

Программа Паскаль. Проверить, является ли последовательность чисел и букв полиндромом. Желательно с объяснением, что и почему так написали. Заранее спасибо!

Answer 1

Ответ:

var

   s: string;

   f: boolean;

   len, i: byte;

begin

   write('Введите вашу строку: ');

   readln(s); //ввод строки

   len := length(s);  //определение длины строки

   f := true; //флажок палиндрома

   for i := 1 to len div 2 do

       if s[i] <> s[len-i+1] then begin //в цикле сравнивается первая половина строки со второй в обратную сторону

           writeln('Не палиндром'); //если сталкивается с несовпадением, то флажок меняется на false

           f := false;

           break;

       end;

   if f = true then  

       writeln('Палиндром');

end.

Объяснение: