projects
/
pdp8.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
f9681d0ad8447ecad2b2966b0c6df8d4077bfe1a
[pdp8.git]
/
KOMBI.V1
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.