7 lines
145 B
Text
7 lines
145 B
Text
100 N = 4 : GOSUB 200"FACTORIAL
|
|
110 PRINT N
|
|
120 END
|
|
|
|
200 N = INT(N)
|
|
210 IF N > 1 THEN FOR I = N - 1 TO 2 STEP -1 : N = N * I : NEXT I
|
|
220 RETURN
|