17 lines
235 B
Text
17 lines
235 B
Text
10 FOR N=0 TO 14
|
|
20 LET X=N
|
|
30 GOSUB 130
|
|
40 LET A=FX
|
|
50 LET X=N+1
|
|
60 GOSUB 130
|
|
70 LET B=FX
|
|
80 LET X=2*N
|
|
90 GOSUB 130
|
|
100 PRINT N,FX/(B*A)
|
|
110 NEXT N
|
|
120 STOP
|
|
130 LET FX=1
|
|
140 FOR I=1 TO X
|
|
150 LET FX=FX*I
|
|
160 NEXT I
|
|
170 RETURN
|