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:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:

{$IFNDEF FPC}
  {$APPTAYPE CONSOLE}
{$ENDIF}

{
THREE + TWO + ONE + TWO + THREE = ELEVEN
(T>0, O>0, E>0) gelöst werden, bei dem jeder
Buchstabe eine anderen Ziffer entspricht.
Wie lautet denn die Lösung?
}
var
  InUse : array[0..9] of boolean;
  t,h,r,e,o,w,n,l,v : longint;
  one, two,three,eleven : longint;
begin
  fillchar(InUse,SizeOf(inUse),#0);
  For r := 0 to 9 do
  begin
    InUse[r] := true;
    For w := 0 to 9 do
    begin
      IF InUse[w] then
        continue;
      InUse[w] := true;
      For h := 0 to 9 do
      begin
        IF InUse[h] then
          continue;
        InUse[h] := true;
        For t := 1 to 9 do
        begin
          IF InUse[t] then
            continue;
          InUse[t] := true;
          For e := 1 to 9 do
          begin
            IF InUse[e] then
              continue;
            InUse[e] := true;
            For o := 1 to 9 do
            begin
              IF InUse[o] then
                continue;
              InUse[o] := true;

              n := (3*e+2*o) MOD 10;
              IF InUse[n] then
              Begin
                InUse[o] := false;
                continue;
              end;

              InUse[n] := true;
              three := ((((t*10+h)*10+r)*10+e)*10+e);
              two := ((t*10+w)*10+o);
              one := (o*10+n)*10+e;
              eleven := 2*three+2*two+one;
              IF eleven MOD 100 <> 10*E+N then
              Begin
                InUse[o] := false;
                InUse[n] := false;
                continue;
              end;

              if (eleven div 1000) = e then
                if (eleven div 100000) Mod 10 = e then
                Begin
                  v := (eleven div 100) Mod 10;
                  IF Not(InUse[v]) then
                  begin
                    l := (eleven div 10000) Mod 10;
                    IF NOT(InUse[l]) AND (l<>v) then
                    begin
                      write ('ONE ',one,' TWO ',two,' THREE ',Three);
                      writeln(' ELEVEN ',eleven);
                    end;
                  end;
                  InUse[o] := false;
                  InUse[n] := false;
                  continue;
                end;
                inuse[o] := false;
                InUse[n] := false;
                end;
               //
             inuse[e] := false;
             end;
           inuse[t] := false;
           end;
         inuse[h] := false;
         end;
       inuse[w] := false;
       end;
     inuse[r] := false;
     end;
{$IFDEF WINDOWS}
   readln;
{$ENDIF}
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:

    private void Button_Click(object sender, RoutedEventArgs evta)
    {
      for (int t = 0; t < 10; t++)
      {
        for (int h = 0; h < 10; h++)
        {
          for (int r = 0; r < 10; r++)
          {
            for (int e = 0; e < 10; e++)
            {
              for (int w = 0; w < 10; w++)
              {
                for (int o = 0; o < 10; o++)
                {
                  for (int n = 0; n < 10; n++)
                  {
                    int result =
                      (t * 10000 + h * 1000 + r * 100 + e * 10 + e) * 2 + (t * 100 + w * 10 + o) * 2 + o * 100 + n * 10 + e;
                    if (result % 10 == n)
                    {
                      if (result % 100 / 10 == e && result % 10000 / 1000 == e && result % 1000000 / 100000 == e)
                      {
                        var l = result % 100000 / 10000;
                        var v = result % 1000 / 100;
                        if (AllUnequal(t, h, r, e, w, o, n, l, v))
                        {
                        Console.WriteLine(result);
                        Console.WriteLine("t:{0} h:{1} r:{2} e:{3} w:{4} o:{5} n:{6} l:{7} v:{8}", t, h, r, e, w, o, n, l, v);
                        }
                      }
                    }
                  }
                }
              }
            }
          }
        }
      }
    }