:D :D :D

saludos

Hola
Si amigo, ya lo vi, estas aprendiendo :D.
Pero que conste que yo lo dije primero (post arriba) :cool::D:p
Saludos

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.

Muchas gracias a todos, la duda esta resuelta!!!
Voy a pasarme mucho por aqui...