16 lines
377 B
Plaintext
16 lines
377 B
Plaintext
10 INPUT "Maximum number: ";max
|
|
20 INPUT "Number of factors: ";n
|
|
30 DIM f(n): DIM w$(n,4)
|
|
40 FOR i=1 TO n
|
|
50 INPUT "Input value-ENTER-word: ";f(i);w$(i)
|
|
60 NEXT i
|
|
70 FOR i=1 TO max
|
|
80 LET matched=0
|
|
90 FOR j=1 TO n
|
|
100 IF FN m(i,f(j))=0 THEN LET matched=1: PRINT w$(j);
|
|
110 NEXT j
|
|
120 IF NOT matched THEN PRINT ;i: GO TO 140
|
|
130 PRINT
|
|
140 NEXT i
|
|
150 DEF FN m(a,b)=a-INT (a/b)*b
|