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