Дано двузначное число.выяснить является ли оно палиндромом то есть таким числом десятичная запись которого читается слева направо и справа налево
Дано двузначное число.выяснить является ли оно палиндромом то есть таким числом десятичная запись которого читается слева направо и справа налево
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы