12 lines
217 B
Text
12 lines
217 B
Text
100 PROGRAM "Combinat.bas"
|
|
110 READ N
|
|
120 STRING D$(1 TO N)*5
|
|
130 FOR I=1 TO N
|
|
140 READ D$(I)
|
|
150 NEXT
|
|
160 FOR I=1 TO N
|
|
170 FOR J=I TO N
|
|
180 PRINT D$(I);" ";D$(J)
|
|
190 NEXT
|
|
200 NEXT
|
|
210 DATA 3,iced,jam,plain
|