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

Проверить является ли введенное слово перевертышем?
Написать программу в Паскале!

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

Vari,n,k:integer;
s:string;
    beginreadln(s);
    n:=length(s);
        for i:=1 to n div 2 do
              if s[i]=s[n-i+1]then
                 k:=k+1;
     if k=n div 2 then
        writeln(y)
     else
         writeln(n);
end.