Дано натуральное число. Определить является ли оно палиндромом. Написать процедуру получения нового числа. Паскаль
Answers & Comments
srzontmp
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 Число - палиндром
0 votes Thanks 0
Myshyak
Здравствуйте! Помогите мне с информатикой, вот ссылка на задачу ; https://znanija.com/task/22424529
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 палиндром
3 votes Thanks 2
Myshyak
Здравствуйте! Помогите мне с информатикой, вот ссылка на задачу ; https://znanija.com/task/22424529
Answers & Comments
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
Число - палиндром
Verified answer
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
палиндром