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

Question

Информатика

Машаня

9 июля, 11:47

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

+3

Ответы (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.