1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
{ %OPT=-O-G2 -Sd}
var
c: array[1..10] of integer;
b, a: array[1..10, 1..10] of integer;
procedure rec(k: integer);
var i: integer;
begin
for i := 1 to c[k] do
if a[k, b[k, i]] = 0 then
begin
//writeln(i, ' ', k);
a[k, b[k, i]]:= 1;
a[b[k, i], k]:= 1;
rec(b[k, i]);
end;
end;
begin
fillchar(a, sizeof(a), 0);
c[1] := 2;
c[2] := 2;
c[3] := 2;
b[1, 1] := 2; b[1, 2] := 3;
b[2, 1] := 1; b[2, 2] := 3;
b[3, 1] := 1; b[3, 2] := 2;
rec(1);
end.
|
