Дано трёхзначное число. Напишите в паскаль программу, которая определяет: Является ли число "перевёртышем", т.е. числом, десятичная запись которого читается одинаково слева направо и справа налево.
Дано трёхзначное число. Напишите в паскаль программу, которая определяет:
Является ли число "перевёртышем", т.е. числом, десятичная запись которого читается одинаково слева направо и справа налево.
Ответ(ы) на вопрос:
var
a:integer;
begin
writeln('a ?');
readln(a);
if (a mod 10)=(a div 100) then
writeln('Yes')
else
writeln('N');
end.
Не нашли ответ?
Похожие вопросы