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