20 lines
435 B
Text
20 lines
435 B
Text
100 FOR I = 1 TO 20
|
|
110 GOSUB 200"FACTORIAL
|
|
120 PRINT I" = "FA$
|
|
130 NEXT I
|
|
140 END
|
|
|
|
200 FA$ = "1"
|
|
210 LET NUM = I
|
|
220 LET O = 5 - (I = 1) * 4
|
|
230 FOR F = 2 TO I
|
|
240 LET M = INT (NUM / F) * F
|
|
250 IF NUM - M GOTO 300
|
|
260 LET NUM = NUM / F
|
|
270 LET F$ = STR $(F)
|
|
280 FA$ = FA$ + " X " + F$
|
|
290 LET F = F - 1
|
|
|
|
300 NEXT F
|
|
310 FA$ = MID$ (FA$,O)
|
|
320 RETURN
|