14 lines
176 B
Text
14 lines
176 B
Text
10 let f = 1
|
|
|
|
20 print "factorial"
|
|
30 input "enter an integer (1-34): ", n
|
|
|
|
40 rem loop
|
|
|
|
60 let f = f * n
|
|
70 let n = n - 1
|
|
|
|
80 if n > 0 then 40
|
|
|
|
90 print f
|
|
100 shell "pause"
|