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

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

Comments

Здравствуйте! Помогите мне с информатикой, вот ссылка на задачу ; https://znanija.com/task/22424529

Answer 2

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

Comments

Здравствуйте! Помогите мне с информатикой, вот ссылка на задачу ; https://znanija.com/task/22424529