21 lines
494 B
Plaintext
21 lines
494 B
Plaintext
100 DIM FACT(12)
|
|
110 FACT(0) = 1
|
|
120 FOR N = 1 TO 11
|
|
130 FACT(N) = FACT(N - 1) * N
|
|
140 NEXT
|
|
200 FOR B = 9 TO 12
|
|
210 PRINT "THE FACTORIONS ";
|
|
215 PRINT "FOR BASE "B" ARE:"
|
|
220 FOR I = 1 TO 1499999
|
|
230 SUM = 0
|
|
240 FOR J = I TO 0 STEP 0
|
|
245 M = INT (J / B)
|
|
250 D = J - M * B
|
|
260 SUM = SUM + FACT(D)
|
|
270 J = M
|
|
280 NEXT J
|
|
290 IF SU = I THEN PRINT I" ";
|
|
300 NEXT I
|
|
310 PRINT : PRINT
|
|
320 NEXT B
|