13 lines
168 B
Text
13 lines
168 B
Text
FUNCTION perf(n)
|
|
sum = 0
|
|
for i = 1 to n - 1
|
|
IF n MOD i = 0 THEN
|
|
sum = sum + i
|
|
END IF
|
|
NEXT i
|
|
IF sum = n THEN
|
|
perf = 1
|
|
ELSE
|
|
perf = 0
|
|
END IF
|
|
END FUNCTION
|