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

Question

Информатика

Генуха

20 декабря, 09:07

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

+5

Ответы (2)

Знаете ответ на вопрос?

Эмиля · Answer 1

Procedure inverse (var a: integer) ;

var i, k: integer;

begin

k:=a; i:=0;

while k>0 do

begin

i:=i + (k mod 10) ;

k:=k div 10;

if k>0 then i:=i*10;

end;

a:=i;

end;

/ / основная программа

var k, n: integer;

begin

write ('число: ') ; readln (n) ;

k:=n;

inverse (n) ;

if k=n then writeln ('палиндром')

else writeln ('не палиндром') ;

end.

число: 123456754

не палиндром

число: 456898654

палиндром

Алексеич · Answer 2

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

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