8 lines
139 B
Text
8 lines
139 B
Text
|
function factorial(n=real.double)=real.double
|
||
|
|
var i, f = real.double
|
||
|
|
f = 1
|
||
|
|
for i = 1 to n
|
||
|
|
f = f * i
|
||
|
|
next i
|
||
|
|
end = f
|