Отправлено: 13.03.21 09:34. Заголовок: не сходится ответ в задаче №145 из файла ege25.doc

Ответы для неё:
1112221 3
1122220 23
1212112 39
1221121 7
1222210 31

Но у всех этих чисел собственных делителей на 1 меньше.
Своё решение на Паскале прилагаю.

var x,x1,k1,kd,y,s,signal,c: longint;
begin
k1:=0;
for x:=1000000 to 1300000 do
begin
x1:=x; s:=0; signal:=0;
while x1>0 do
begin
c:=x1 mod 10;
s:=s+c;
if c>=3 then signal:=1;
x1:=x1 div 10;
end;
if (signal=0) and (s mod 10 = 0) then
begin
k1:=k1+1;
if (k1 mod 10 = 0) then
begin
kd:=0;
for y:=2 to x-1 do
if x mod y = 0 then kd:=kd+1;
writeln(x,' ',kd);
end;
end
end;
end.

 Отправлено: 13.03.21 17:05. Заголовок: Согласен с вами. Уто..

Согласен с вами. Уточнил условие и заменил ответы.