8 lines
107 B
Text
8 lines
107 B
Text
|
100 DEF FACT(N)
|
||
|
|
110 LET F=1
|
||
|
|
120 FOR I=2 TO N
|
||
|
|
130 LET F=F*I
|
||
|
|
140 NEXT
|
||
|
|
150 LET FACT=F
|
||
|
|
160 END DEF
|