[ecfisa]

Hola de nuevo.

Mi vida no tendría sentido sín números perfectos, así que teclee un poco:

Código Delphi [-]
function NumeroPerfecto( Num: Integer): Boolean;
var
 con,ac: Integer;
begin
  Result:= False;
  con:= 1;
  ac:= 0;
  while con < Num do
  begin
    if Num mod con = 0 then
      ac:= ac + con;
    Inc(con)
  end;
  if ac = Num then
    Result:= True;
end;

Saludos.