14 lines
168 B
Text
14 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
|