Дано натуральное число. Определить является ли оно палиндромом. Написать процедуру получения нового числа. Паскаль

Ответ учителя по предмету Информатика

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

Число — палиндром