Commit | Line | Data |
---|---|---|
1 | PROGRAM KOMBINATIONEN(INPUT,OUTPUT); | |
2 | ||
3 | VAR I,K,N: INTEGER; | |
4 | ALL: BOOLEAN; | |
5 | Z: ARRAY[0..9] OF INTEGER; | |
6 | ||
7 | PROCEDURE PRINT; | |
8 | VAR I: INTEGER; | |
9 | BEGIN | |
10 | FOR I := 1 TO K DO WRITE(Z[I]:1); WRITE(" ":2) | |
11 | END; | |
12 | ||
13 | BEGIN | |
14 | READ(N,K); | |
15 | Z[0] := -1; ALL := FALSE; | |
16 | FOR I := 1 TO K DO Z[I] := I; | |
17 | REPEAT | |
18 | PRINT; | |
19 | I := K; | |
20 | WHILE Z[I] = N-K+I DO I := I - 1; | |
21 | ALL := I=0; | |
22 | Z[I] := Z[I] + 1; | |
23 | FOR I := I+1 TO K DO Z[I] := Z[I-1] + 1 | |
24 | UNTIL ALL; | |
25 | WRITELN; WRITELN | |
26 | END. |