Commit | Line | Data |
---|---|---|
81e70d48 PH |
1 | PROGRAM KNOBELEI(OUTPUT); |
2 | ||
3 | CONST MAX=80; | |
4 | ||
5 | VAR A, B, I, J, Z: INTEGER; | |
6 | ZEILE, NEU: ARRAY[1..MAX] OF INTEGER; | |
7 | ||
8 | BEGIN | |
9 | ZEILE[1] := 1; ZEILE[2] := 0; | |
10 | WRITELN("1"); | |
11 | ||
12 | REPEAT (******* ZEILE *******) | |
13 | A := ZEILE[1]; I := 1; J := 1; | |
14 | REPEAT (******* GRUPPE *******) | |
15 | Z := 0; | |
16 | REPEAT (******* ZIFFER *******) | |
17 | Z := Z + 1; | |
18 | I := I + 1; B := ZEILE[I] | |
19 | UNTIL A<>B; | |
20 | NEU[J] := Z; NEU[J+1] := A; J := J + 2; | |
21 | A := B | |
22 | UNTIL B=0; | |
23 | ZEILE[J] := 0; | |
24 | FOR I := 1 TO J-1 DO BEGIN | |
25 | ZEILE[I] := NEU[I]; | |
26 | WRITE( ZEILE[I] :1 ) | |
27 | END; | |
28 | WRITELN | |
29 | UNTIL J>MAX | |
30 | END. |