10 lines
174 B
Text
10 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
|