13 lines
214 B
Text
13 lines
214 B
Text
Procedure is_Perfect_number(n)
|
|
Protected summa, i=1, result=#False
|
|
Repeat
|
|
If Not n%i
|
|
summa+i
|
|
EndIf
|
|
i+1
|
|
Until i>=n
|
|
If summa=n
|
|
result=#True
|
|
EndIf
|
|
ProcedureReturn result
|
|
EndProcedure
|