Число совершенно,если она равна сумме всех своих делителей кроме самого себя - Turbo Pascal

Формулировка задачи:

Число совершенно,если она равна сумме всех своих делителей кроме самого себя. Пример :6=1+2+3 найдите все совершенные числа от 1 до 1000 и выведите их на экран. Плиз напишите полную программу................

Код к задаче: «Число совершенно,если она равна сумме всех своих делителей кроме самого себя - Turbo Pascal»

textual
var i,j,s:longint;
begin
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 write(i,' ');
end;
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

15   голосов, оценка 3.933 из 5


СДЕЛАЙТЕ РЕПОСТ
Похожие ответы