Найдите все совершенные числа от 1 до 1000 и выведите их на экран - Turbo Pascal
Формулировка задачи:
Число совершенно,если она равна сумме всех своих делителей кроме самого себя.Пример :6=1+2+3 найдите все совершенные числа от 1 до 1000 и выведите их на экран.
Код к задаче: «Найдите все совершенные числа от 1 до 1000 и выведите их на экран - Turbo Pascal»
For i:=1 to 1000 do Begin s:=0; For j:=1 to i div 2 do if i mod j = 0 then s:=s+j; if s=i then writeln(s); End.

Эта работа вам не подошла?
Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.
СДЕЛАЙТЕ РЕПОСТ
5 голосов, оценка 4.000 из 5
Похожие ответы