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

Question

Информатика

Машаня

10 марта, 22:17

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

+1

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