Форум » Обработка целых чисел » не сходится ответ в задаче №145 из файла ege25.doc » Ответить

не сходится ответ в задаче №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.

Ответов - 1

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



полная версия страницы