Напишите программу ** паскале. ИНФОРМАТИКА 8 КЛАСС БОСОВА ФГОС. Номер 6 б) даю 60 баллов.

Question

Напишите программу на паскале. ИНФОРМАТИКА 8 КЛАСС БОСОВА ФГОС. Номер 6 б)
даю 60 баллов.

---

---

Answer 1

Var
   A,B,C:longint;
Begin
Write('Введите целое число: ');ReadLn(A);
A:=Abs(A);
B:=A;
C:=0;
While B>0 do
   Begin
   C:=C*10+B mod 10;
   B:=B div 10
   End;
if A = C then WriteLn('Перевёртыш')
else WriteLn('Нет')
End.