Палиндром

@dima544 · Регистрация: 03.11.2012

Author24 — интернет-сервис помощи студентам

Дано некоторое натуральное число А.
Если это не палиндром, то изменить порядок его цифр на противоположный и сложить исходное число с полученным.
Если сумма не палиндром, то повторить над ней те же действия и т.д., пока не получится палиндром.

Чем проще, тем лучше . т.к. я новичок в этом деле.

@КонецСвета · 03.11.2012, 15:36

Pascal

uses crt;
var n,nn: integer;
    b: boolean;
 
procedure IsPalindrom(c: integer; var i: boolean; var r: integer);
var cc: integer;
begin
r:=0; cc:=c;
while cc>=1 do
      begin
      r:=(r*10)+cc mod 10;
      cc:=cc div 10;
      end;
i:=c=r;
end;
 
begin
write('n='); readln(n);
repeat
IsPalindrom(n,b,nn);
writeln(n,' ',b);
if not b then n:=n+nn;
until b;
end.

@dima544 · 03.11.2012, 15:44 **[ТС]**

Сообщение от КонецСвета

procedure IsPalindrom(c: integer; var i: boolean; var r: integer);

вариант без данной функции возможен?
и какой вообще смысл у этой функции (процедуры)?

@КонецСвета · 03.11.2012, 15:52

без процедуры (всегда кажется, что с процедурой легче

)
(процедура создавала "перевернутое число" и сравнивала его с заданным, выдавая значение ИСТИНА, если это был палиндром)

Pascal

uses crt;
var n,nn,p,pp: integer;
 
begin
write('n='); readln(n);
repeat
p:=0; pp:=n;
while pp>=1 do
      begin
      p:=(p*10)+pp mod 10;
      pp:=pp div 10;
      end;
if p=n then writeln(n,' палиндром') else
   begin
   writeln(n,' не палиндром');
   n:=n+p;
   end;
until p=n;
end.

@dima544 0 / 0 / 0 Регистрация: 03.11.2012 Сообщений: 13
		1
	Палиндром 03.11.2012, 14:23. Показов 1417. Ответов 3 Метки нет (Все метки) Дано некоторое натуральное число А. Если это не палиндром, то изменить порядок его цифр на противоположный и сложить исходное число с полученным. Если сумма не палиндром, то повторить над ней те же действия и т.д., пока не получится палиндром. Чем проще, тем лучше . т.к. я новичок в этом деле. 0

@dima544 0 / 0 / 0 Регистрация: 03.11.2012 Сообщений: 13
	03.11.2012, 15:44 [ТС]	3
	Сообщение от КонецСвета procedure IsPalindrom(c: integer; var i: boolean; var r: integer); вариант без данной функции возможен? и какой вообще смысл у этой функции (процедуры)? 0

	03.11.2012, 15:52

Палиндром

Решение