Составить алгоритм получения всех совершенных чисел меньше N

Совершенным называется число, равное сумме всех своих делителей (включая 1, но исключая само число). Наименьшее из совершенных чисел 6 равно сумме трех своих делителей 1, 2 и 3.

1.

var n, s, i, j:integer;

begin

write ('n = ');

readln (n);

for i:=2 to n do

begin

s:=1;

for j:=2 to i div 2 do

if i mod j = 0 then s:=s+j;

if s=i then write (i,' ');

end;

end.

Пример:

n = 1000

6 28 496

2.

алг Числа

нач

цел n, s, i, j

вывод "n = ", нс

ввод n

нц для i от 2 до n

s:=1

нц для j от 2 до div (i, 2)

если mod (i, j) = 0 то

s:=s+j

все

кц

если s = i то

вывод i, нс

все

кц

кон