Предмет: Информатика,
автор: utyakov2012
дано двузначное число.выяснить является ли оно палиндромом то есть таким числом десятичная запись которого читается слева направо и справа налево
Ответы
Автор ответа:
0
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.
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.
Похожие вопросы
Предмет: Обществознание,
автор: BeJlиkИй
Предмет: Математика,
автор: ermilo76mailru
Предмет: Алгебра,
автор: botik222a
Предмет: Алгебра,
автор: KillerGirl
Предмет: История,
автор: fyodorowaiulia