Ответ учителя по предмету Информатика
var n,m:integer;
procedure inverse(a:integer; var b:integer);
begin
b:=0;
while a>0 do
begin
b:=b*10+a mod 10;
a:=a div 10;
end;
end;
begin
write(‘n = ‘);
readln(n);
inverse(n,m);
if n=m
then writeln(‘Число — палиндром’)
else writeln(‘Число — не палиндром’);
end.
Пример:
n = 123321
Число — палиндром
Похожие вопросы от пользователей
ПОЖАЛУЙСТА ПОМОГИТЕ СРОЧНО НУЖНО
ДАЮ 10 БАЛЛОВ
(18×3−56)2
(Переменную вводи с помощью латинской раскладки)
1
−
x
+
Ответить!