22 lines
432 B
Plaintext
22 lines
432 B
Plaintext
FUNCTION perf(n)
|
|
IF n < 2 or ramainder(n,2) = 1 then LET perf = 0
|
|
LET sum = 0
|
|
FOR i = 1 to n-1
|
|
IF remainder(n,i) = 0 then LET sum = sum+i
|
|
NEXT i
|
|
IF sum = n then
|
|
LET perf = 1
|
|
ELSE
|
|
LET perf = 0
|
|
END IF
|
|
END FUNCTION
|
|
|
|
PRINT "Los primeros 5 números perfectos son:"
|
|
FOR i = 1 to 33550336
|
|
IF perf(i) = 1 then PRINT i; " ";
|
|
NEXT i
|
|
|
|
PRINT
|
|
PRINT "Presione cualquier tecla para salir"
|
|
END
|