Написать программу на pascal "дана строка символов s, состоящая максимум из 250 символов. напишите программу, которая проверит является ли строка s палиндромом. примеры палиндромов: ‘cojoc’, ‘cazac’, ‘potop’, ‘rotor’."
Var s:string; l,i:byte; begin readln(s); l := length(s); for i:= 1 to l div 2 do begin if s[i] <> s[l-i+1] then begin writeln('NO'); halt; end; end; writeln('YES'); end.
s:string;
l,i:byte;
begin
readln(s);
l := length(s);
for i:= 1 to l div 2 do begin
if s[i] <> s[l-i+1] then begin
writeln('NO');
halt;
end;
end;
writeln('YES');
end.