19 lines
370 B
Text
19 lines
370 B
Text
PROGRAM PERFECT
|
|
|
|
PROCEDURE PERFECT(N%->OK%)
|
|
LOCAL I%,S%
|
|
S%=1
|
|
FOR I%=2 TO SQR(N%)-1 DO
|
|
IF N% MOD I%=0 THEN S%+=I%+N% DIV I%
|
|
END FOR
|
|
IF I%=SQR(N%) THEN S%+=I%
|
|
OK%=(N%=S%)
|
|
END PROCEDURE
|
|
|
|
BEGIN
|
|
PRINT(CHR$(12);) ! CLS
|
|
FOR N%=2 TO 10000 STEP 2 DO
|
|
PERFECT(N%->OK%)
|
|
IF OK% THEN PRINT(N%)
|
|
END FOR
|
|
END PROGRAM
|