RosettaCodeData/Task/Factorial/BASIC256/factorial-2.basic256
Ingy döt Net 776bba907c Sync
2013-10-27 22:24:23 +00:00

11 lines
214 B
Text

print "enter a number, n = ";
input n
print string(n) + "! = " + string(factorial(n))
function factorial(n)
if n > 0 then
factorial = n * factorial(n-1)
else
factorial = 1
end if
end function