Question

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

Answer 1

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.
 

Answer 2

что такое N ?

Answer 3

спс