Форум » Обработка целых чисел » егэ задание 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.
полная версия страницы