Форум » Обработка целых чисел » егэ задание 25 №73. Не сходится ответ » Ответить

егэ задание 25 №73. Не сходится ответ

LgSL: Решил так var n,sum,i,k,a:longint; begin k:=0; for n:=2 to 20000 do begin sum:=0; for a:=1 to n-1 do begin if n mod a = 0 then sum:=sum+a; end; if (n>sum) then k:=k+1; end; write(k); end. Выводит 15042, но в ответах 4950. В чем ошибка?

Ответов - 1

Поляков: LgSL пишет: Выводит 15042, но в ответах 4950. В чем ошибка? Спасибо за замечание. Там была неточность в формулировке условия. Должно быть так: "Число называется избыточным, если оно меньше суммы своих собственных делителей". Правильный ответ: 4953.



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