8 lines
115 B
Text
8 lines
115 B
Text
|
Procedure factorial(n)
|
||
|
|
Protected i, f = 1
|
||
|
|
For i = 2 To n
|
||
|
|
f = f * i
|
||
|
|
Next
|
||
|
|
ProcedureReturn f
|
||
|
|
EndProcedure
|