11 lines
174 B
Text
11 lines
174 B
Text
|
for i = 1 to 10000
|
||
|
|
if perf(i) then print i;" ";
|
||
|
|
next i
|
||
|
|
|
||
|
|
FUNCTION perf(n)
|
||
|
|
for i = 1 TO n - 1
|
||
|
|
IF n MOD i = 0 THEN sum = sum + i
|
||
|
|
next i
|
||
|
|
IF sum = n THEN perf = 1
|
||
|
|
END FUNCTION
|