Строка содержит одно слово. Проверить, будет ли оно читаться одинаково справа налево и слева направо (программа Паскаль)
Вопрос посетителя
Строка содержит одно слово. Проверить, будет ли оно читаться одинаково справа налево и слева направо (т. е. является ли оно палиндромом).
Ответ эксперта
uses crt;
var
s: string;
i: integer;
flag: boolean;
begin
clrscr;
write(‘Введите слово: ‘);
readln(s);
flag := true;
for i := 1 to length(s) div 2 do
if s[i] <> s[length(s) — i + 1] then
begin
flag := false;
break;
end;
if flag then write(‘Палиндром’) else write(‘Ни разу не палиндром’);
readln;
end.
