Question

Дано трёхзначное число. Напишите в паскаль программу, которая определяет:

Является ли число "перевёртышем", т.е. числом, десятичная запись которого читается одинаково слева направо и справа налево.

Answer 1

var
a:integer;
begin
  writeln('a ?');
  readln(a);
     if (a mod 10)=(a div 100) then
         writeln('Yes')
     else
         writeln('N');
end.