Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

Задача. Проверить, является ли введённое слово перевёртышем.

Ответ оставил Гость

Var
 s:string;
 i,j,n,m,k:longint;
begin
 readln(s);
 j:=length(s);
 for i:=1 to length(s) div 2 do
 begin
  if s[i]<>s[j] then 
 begin
  wrtieln(Слово не является перевертышем);
  halt; 
 end;
 dec(j);
end;
writeln( Слово является перевертышем );
end.