Дедка бабка репка сказка ребус

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72

var
  k, o, r, v, a, t, d, ya, m, l: integer;
  s: set of byte;
 
begin
  for k := 1 to 9 do
    if not (k in s) then
    begin
      Include(s, k);
      for o := 0 to 9 do
        if not (o in s) then
        begin
          Include(s, o);
          for r := 0 to 9 do
            if not (r in s) then
            begin
              Include(s, r);
              for v := 0 to 9 do
                if not (v in s) then
                begin
                  Include(s, v);
                  for a := 0 to 9 do
                    if not (a in s) then
                    begin
                      Include(s, a);
                      for t := 1 to 9 do
                        if not (t in s) then
                        begin
                          Include(s, t);
                          for d := 1 to 9 do
                            if not (d in s) then
                            begin
                              Include(s, d);
                              for ya := 0 to 9 do
                                if not (ya in s) then
                                begin
                                  Include(s, ya);
                                  for m := 1 to 9 do
                                    if not (m in s) then
                                    begin
                                      Include(s, m);
                                      for l := 0 to 9 do
                                        if not (l in s) then
                                        begin
                                          Include(s, l);
                                          if k * 100000 + o * 10000 + r * 1000 + o * 100 + v * 10 + a
                                          + t * 10000 + r * 1000 + a * 100 + v * 10 + a +
                                          d * 100000 + o * 10000 + ya * 1000 + r * 100 + k * 10 + a =
                                          m * 100000 + o * 10000 + l * 1000 + o * 100 + k * 10 + o then
                                            Writeln(k, o, r, o, v, a, ' + ', t, r, a, v, a, ' + ', d, o, ya, r, k, a, ' = ', m, o, l, o, k, o);
                                          Exclude(s, l);
                                        end;
                                      Exclude(s, m);
                                    end;
                                  Exclude(s, ya);
                                end;
                              Exclude(s, d);
                            end;
                          Exclude(s, t);
                        end;
                      Exclude(s, a);
                    end;
                  Exclude(s, v);
                end;
              Exclude(s, r);
            end;
          Exclude(s, o);
        end;
      Exclude(s, k);
    end;
  Readln
end.

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72

var
  a, l, e, n, k, i, v, o, z, s: integer;
  m: set of byte;
 
begin
  for a := 1 to 9 do
    if not (a in m) then
    begin
      Include(m, a);
      for l := 0 to 9 do
        if not (l in m) then
        begin
          Include(m, l);
          for e := 0 to 9 do
            if not (e in m) then
            begin
              Include(m, e);
              for n := 0 to 9 do
                if not (n in m) then
                begin
                  Include(m, n);
                  for k := 1 to 9 do
                    if not (k in m) then
                    begin
                      Include(m, k);
                      for i := 1 to 9 do
                        if not (i in m) then
                        begin
                          Include(m, i);
                          for v := 0 to 9 do
                            if not (v in m) then
                            begin
                              Include(m, v);
                              for o := 0 to 9 do
                                if not (o in m) then
                                begin
                                  Include(m, o);
                                  for z := 0 to 9 do
                                    if not (z in m) then
                                    begin
                                      Include(m, z);
                                      for s := 1 to 9 do
                                        if not (s in m) then
                                        begin
                                          Include(m, s);
                                          if a * 100000 + l * 10000 + e * 1000 + n * 100 + k * 10 + a +
                                          i * 1000 + v * 100 + a * 10 + n +
                                          k * 100000 + o * 10000 + z * 1000 + l * 100 + i * 10 + k =
                                          s * 100000 + k * 10000 + a * 1000 + z * 100 + k * 10 + a then
                                            Writeln(a, l, e, n, k, a, ' + ', i, v, a, n, ' + ', k, o, z, l, i, k, ' = ', s, k, a, z, k, a);
                                          Exclude(m, s);
                                        end;
                                      Exclude(m, z);
                                    end;
                                  Exclude(m, o);
                                end;
                              Exclude(m, v);
                            end;
                          Exclude(m, i);
                        end;
                      Exclude(m, k);
                    end;
                  Exclude(m, n);
                end;
              Exclude(m, e);
            end;
          Exclude(m, l);
        end;
      Exclude(m, a);
    end;
  Readln
end.

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71

var
  v, e, t, k, a, s, o, l, d, r: integer;
  m: set of byte;
 
begin
  for v := 1 to 9 do
    if not (v in m) then
    begin
      Include(m, v);
      for e := 0 to 9 do
        if not (e in m) then
        begin
          Include(m, e);
          for t := 0 to 9 do
            if not (t in m) then
            begin
              Include(m, t);
              for k := 0 to 9 do
                if not (k in m) then
                begin
                  Include(m, k);
                  for a := 0 to 9 do
                    if not (a in m) then
                    begin
                      Include(m, a);
                      for s := 1 to 9 do
                        if not (s in m) then
                        begin
                          Include(m, s);
                          for o := 0 to 9 do
                            if not (o in m) then
                            begin
                              Include(m, o);
                              for l := 0 to 9 do
                                if not (l in m) then
                                begin
                                  Include(m, l);
                                  for d := 1 to 9 do
                                    if not (d in m) then
                                    begin
                                      Include(m, d);
                                      for r := 1 to 9 do
                                        if not (r in m) then
                                        begin
                                          Include(m, r);
                                          if v * 20000 + e * 2000 + t * 200 + k * 20 + a * 2 +
                                          s * 10000 + t * 1000 + v * 100 + o * 10 + l =
                                          d * 100000 + e * 10000 + r * 1000 + e * 100 + v * 10 + o then
                                            Writeln(v, e, t, k, a, ' + ', v, e, t, k, a, ' + ', s, t, v, o, l, ' = ', d, e, r, e, v, o);
                                          Exclude(m, r);
                                        end;
                                      Exclude(m, d);
                                    end;
                                  Exclude(m, l);
                                end;
                              Exclude(m, o);
                            end;
                          Exclude(m, s);
                        end;
                      Exclude(m, a);
                    end;
                  Exclude(m, k);
                end;
              Exclude(m, t);
            end;
          Exclude(m, e);
        end;
      Exclude(m, v);
    end;
  Readln
end.

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66

var
  b, a, k, d, e, r, p, s, z: integer;
  m: set of byte;
 
begin
  for b := 1 to 9 do
    if not (b in m) then
    begin
      Include(m, b);
      for a := 0 to 9 do
        if not (a in m) then
        begin
          Include(m, a);
          for k := 0 to 9 do
            if not (k in m) then
            begin
              Include(m, k);
              for d := 1 to 9 do
                if not (d in m) then
                begin
                  Include(m, d);
                  for e := 0 to 9 do
                    if not (e in m) then
                    begin
                      Include(m, e);
                      for r := 1 to 9 do
                        if not (r in m) then
                        begin
                          Include(m, r);
                          for p := 0 to 9 do
                            if not (p in m) then
                            begin
                              Include(m, p);
                              for s := 1 to 9 do
                                if not (s in m) then
                                begin
                                  Include(m, s);
                                  for z := 0 to 9 do
                                    if not (z in m) then
                                    begin
                                      Include(m, z);
                                      if b * 10000 + a * 1000 + b * 100 + k * 10 + a +
                                      d * 10000 + e * 1000 + d * 100 + k * 10 + a +
                                      r * 10000 + e * 1000 + p * 100 + k * 10 + a =
                                      s * 100000 + k * 10000 + a * 1000 + z * 100 + k * 10 + a then
                                        Writeln(b, a, b, k, a, ' + ', d, e, d, k, a, ' + ', r, e, p, k, a, ' = ', s, k, a, z, k, a);
                                      Exclude(m, z);
                                    end;
                                  Exclude(m, s);
                                end;
                              Exclude(m, p);
                            end;
                          Exclude(m, r);
                        end;
                      Exclude(m, e);
                    end;
                  Exclude(m, d);
                end;
              Exclude(m, k);
            end;
          Exclude(m, a);
        end;
      Exclude(m, b);
    end;
  Readln
end.

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65

var
  v, o, r, t, a, f, u, b, l: integer;
  m: set of byte;
 
begin
  for v := 1 to 9 do
    if not (v in m) then
    begin
      Include(m, v);
      for o := 0 to 9 do
        if not (o in m) then
        begin
          Include(m, o);
          for r := 0 to 9 do
            if not (r in m) then
            begin
              Include(m, r);
              for t := 1 to 9 do
                if not (t in m) then
                begin
                  Include(m, t);
                  for a := 0 to 9 do
                    if not (a in m) then
                    begin
                      Include(m, a);
                      for f := 1 to 9 do
                        if not (f in m) then
                        begin
                          Include(m, f);
                          for u := 0 to 9 do
                            if not (u in m) then
                            begin
                              Include(m, u);
                              for b := 0 to 9 do
                                if not (b in m) then
                                begin
                                  Include(m, b);
                                  for l := 0 to 9 do
                                    if not (l in m) then
                                    begin
                                      Include(m, l);
                                      if v * 100000 + o * 10000 + r * 1000 + o * 100 + t * 10 + a +
                                      t * 10000 + r * 1000 + a * 100 + v * 10 + a =
                                      f * 100000 + u * 10000 + t * 1000 + b * 100 + o * 10 + l then
                                        Writeln(v, o, r, o, t, a, ' + ', t, r, a, v, a, ' = ', f, u, t, b, o, l);
                                      Exclude(m, l);
                                    end;
                                  Exclude(m, b);
                                end;
                              Exclude(m, u);
                            end;
                          Exclude(m, f);
                        end;
                      Exclude(m, a);
                    end;
                  Exclude(m, t);
                end;
              Exclude(m, r);
            end;
          Exclude(m, o);
        end;
      Exclude(m, v);
    end;
  Readln
end.