Question

Sa se genereze toate numerele perfecte de 3 cifre

Answer 1

program perfect;
var i:longint;
s,d:integer;
begin
for i:=100 to 999 do begin
s:=0;
for d:=1 to i div 2 do
if i mod d=0 then s:=s+d;
if s=i then write (i,' ');
 end;
readln;
end.