Найдите все совершенные числа от 1 до 1000 и выведите их на экран. Язык Паскаль

Question

Задача: 
 
Число совершенно, если оно равно сумме всех своих делителей, кроме самого себя. Пример: 6=1+2+3. Найдите все совершенные числа от 1 до 1000 и выведите их на экран. Подсказка: вам необходимо найти все делители от 1 до исследуемого числа. Делителем числа называется число, которое делит данное без остатка (a mod b=0). 
 
Решение: (если решать без использования массива) 
 
Program Z1; 
Var a, c, d, e : integer; 
begin 
d:=1; 
 
while d<1000 do begin a:=1; e:=0; 
while a<=d do begin 
c:= d mod a; 
if (c=0) and (a<>1) then begin e:=e+a; 
a:=a+1; 
end 
else a:=a+1; 
end; 
if e=d then begin writeln(d); 
d:=d+1; end 
else d:=d+1; 
end; end.

Ирина Серёжкина · Accepted Answer

Стучите, 648964446. Недорого