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

Дано число является ли оно палиндромом в Pascal. Если можно с объяснением каждого шага.

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

Function isPali(A : Longint) : Boolean;
Var B : Longint;
Begin
  B:=1;
  While B  B:=B div 10;
  If A>9 then isPali:=((A div B)=(A mod 10)) and isPali(A mod B div 10) else isPali:=True;
end;

Var N : Longint;
Begin
  Readln(N);
  Writeln(isPali(N));
end.