Найти все совершенные числа до 100000. Совершенное число - это такое число, которое равно сумме всех своих делителей, кроме себя самого. Например, число 6 является совершенным, т. к. кроме себя самого делится на числа 1, 2 и 3, которые в сумме дают 6.

Question

Информатика

Варвар

3 июня, 14:31

Найти все совершенные числа до 100000. Совершенное число - это такое число, которое равно сумме всех своих делителей, кроме себя самого. Например, число 6 является совершенным, т. к. кроме себя самого делится на числа 1, 2 и 3, которые в сумме дают 6.

+2

Ответы (1)

Знаете ответ?

Мукрим · Answer 1

Var i, j, s, n:integer;

begin

readln (n) ;

for i : = 1 to n-1 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.