Question

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

Answer 1

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
Число - палиндром