7 lines
107 B
Text
7 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
|