6 lines
76 B
QBasic
6 lines
76 B
QBasic
|
10 def fna(x)
|
||
|
|
20 if x=0 then r=1 else r=x*fna(x-1)
|
||
|
|
30 =r
|
||
|
|
40 print fna(7)
|
||
|
|
|