projects
/
pdp8.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
898b7507864107b4c549bcc9843d41ab78c67448
[pdp8.git]
/
VARIA.PS
1
PROGRAM VARIATIONEN(INPUT,OUTPUT);
2
3
VAR I,K,N: INTEGER;
4
Z: ARRAY[0..9] OF INTEGER;
5
6
PROCEDURE PRINT;
7
VAR I: INTEGER;
8
BEGIN
9
FOR I := 1 TO K DO WRITE(Z[I]:1); WRITELN
10
END;
11
12
13
PROCEDURE VARIA(N,K: INTEGER);
14
VAR I: INTEGER;
15
BEGIN
16
IF K>0 THEN FOR I:= 1 TO N DO
17
BEGIN Z[K] := I; VARIA(N,K-1) END
18
ELSE PRINT
19
END;
20
21
22
BEGIN
23
READ(N,K);
24
VARIA(N,K)
25
END.