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

Question

Информатика

Петуся

31 июля, 22:48

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

+2

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