Дано двузначное число. выяснить является ли оно палиндромом то есть таким числом десятичная запись которого читается слева направо и справа налево

Question

Информатика

Федуля

8 октября, 01:33

Дано двузначное число. выяснить является ли оно палиндромом то есть таким числом десятичная запись которого читается слева направо и справа налево

+4

Ответы (1)

Знаешь ответ?

Эрнестина · Answer 1

Var n:longint;

begin

repeat

write ('N = ');

readln (n);

until n in [10 ... 99];

if n = ((n mod 10) * 10+n div 10) then writeln ('Palindrom') else

writeln ('No palindrom');

end.