7 lines
139 B
Text
7 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
|