Question

Помогите, пожалуйста, вообще не понимаю эту информатику! Отдаю 30 баллов!

Answer 1

Var a:string[255];
k,i,d,c:integer;
Begin
read (a);
k:=1;
d:=length(a);
If (d mod 2)=1 then
c:=(d div 2)+1 else c:=c div 2; //Центральная цифра
For i:=1 to c do
   If a[i]=a[d-i+1] then k:=k*1 else k:=k*0;  //k определяет одинаковые числа
If k=0 then Writeln ('Нет') else Writeln ('Перевертыш');
end.

Answer 2

Согласен, небольшие ошибки подправил, из-за спешки решения не учел более короткий алгоритм решения. Спасибо за внимание.