6 lines
123 B
Text
6 lines
123 B
Text
2000 LET SUM=0
|
|
2010 FOR F=1 TO N-1
|
|
2020 IF N/F=INT (N/F) THEN LET SUM=SUM+F
|
|
2030 NEXT F
|
|
2040 LET PERFECT=SUM=N
|
|
2050 RETURN
|