14 lines
281 B
Text
14 lines
281 B
Text
|
FOR n% = 2 TO 10000 STEP 2
|
||
|
|
IF FNperfect(n%) PRINT n%
|
||
|
|
NEXT
|
||
|
|
END
|
||
|
|
|
||
|
|
DEF FNperfect(N%)
|
||
|
|
LOCAL I%, S%
|
||
|
|
S% = 1
|
||
|
|
FOR I% = 2 TO SQR(N%)-1
|
||
|
|
IF N% MOD I% = 0 S% += I% + N% DIV I%
|
||
|
|
NEXT
|
||
|
|
IF I% = SQR(N%) S% += I%
|
||
|
|
= (N% = S%)
|