19 lines
135 B
Text
19 lines
135 B
Text
|
define f = 1, n = 0
|
||
|
|
|
||
|
|
print "Factorial"
|
||
|
|
print "Enter an integer: " \
|
||
|
|
|
||
|
|
input n
|
||
|
|
|
||
|
|
do
|
||
|
|
|
||
|
|
let f = f * n
|
||
|
|
|
||
|
|
-1 n
|
||
|
|
|
||
|
|
loop n > 0
|
||
|
|
|
||
|
|
print f
|
||
|
|
pause
|
||
|
|
end
|