Ребус: два + три = пять

REM
REM  ДВА + ТРИ = ПЯТЬ
REM
REM  645 + 387 = 1032
REM
 
CLS
min = 30
 
FOR i1 = 2 TO 9
FOR i2 = 0 TO 9
   IF i2 = i1 THEN 100
   FOR i3 = 0 TO 9
      IF i3 = i1 OR i3 = i2 THEN 200
      FOR i4 = 2 TO 9
         IF i4 = i1 OR i4 = i2 OR i4 = i3 THEN 300
         FOR i5 = 0 TO 9
            IF i5 = i1 OR i5 = i2 OR i5 = i3 OR i5 = i4 THEN 400
            FOR i6 = 0 TO 9
   IF i6 = i1 OR i6 = i2 OR i6 = i3 OR i6 = i4 OR i6 = i5 THEN 500
            FOR i7 = 0 TO 9
   IF i7 = i1 OR i7 = i2 OR i7 = i3 OR i7 = i4 OR i7 = i5 OR i7 = i6 THEN 600
            FOR i8 = 0 TO 9
   IF i8 = i1 OR i8 = i2 OR i8 = i3 OR i8 = i4 OR i8 = i5 OR i8 = i6 OR i8 = i7 THEN 700
   IF i2 = 1 OR i3 = 1 OR i5 = 1 OR i6 = 1 OR i7 = 1 OR i8 = 1 THEN 700
 
   A = 100 * i1 + 10 * i2 + i3
   B = 100 * i4 + 10 * i5 + i6
   C = 1000 + 100 * i7 + 10 * i4 + i8
   
   IF A + B = C THEN
      D = 1 + i7 + i4 + i8
      IF min > D THEN
         min = D
         PRINT A; B; C
      END IF
   END IF
 
700 : NEXT i8
600 : NEXT i7
500 : NEXT i6
400 : NEXT i5
300 : NEXT i4
200 : NEXT i3
100 : NEXT i2
NEXT i1
END

CLS
min = 40
FOR d = 2 TO 9
 FOR v = 0 TO 9
  IF v <> 1 AND v <> d THEN
   FOR a = 0 TO 9
    IF a <> 1 AND a <> d AND a <> v THEN
     FOR t = 2 TO 9
      IF t <> 1 AND t <> d AND t <> v AND t <> a THEN
       FOR r = 0 TO 9
        IF r <> 1 AND r <> d AND r <> v AND r <> a AND r <> t THEN
         FOR i = 0 TO 9
          IF i <> 1 AND i <> d AND i <> v AND i <> a AND i <> t AND i <> r THEN
           s = d * 100 + v * 10 + a + t * 100 + r * 10 + i
            IF s >= 1000 AND s \ 10 MOD 10 = t THEN
             p = 1
             y = s \ 100 MOD 10
              IF y <> d AND y <> v AND y <> a AND y <> t AND y <> r AND y <> i AND y <> 1 THEN
               j = s MOD 10
               IF j <> d AND j <> v AND j <> a AND j <> t AND j <> r AND j <> i AND j <> 1 AND j <> y THEN
                IF p + y + t + j < min THEN min = p + y + t + j: pervoe = d * 100 + v * 10 + a: vtoroe = t * 100 + r * 10 + i: summa = 1000 + y * 100 + t * 10 + j: PRINT pervoe; "+"; vtoroe; "="; summa
               END IF
              END IF
            END IF
          END IF
         NEXT
        END IF
       NEXT
      END IF
     NEXT
    END IF
   NEXT
  END IF
 NEXT
NEXT

DIM d&, v&, a&, t&, r&, i&, p&, y&, j&, s&, k&, min&
DIM ar&(9)
min = 40
p = 1
ar(p) = 1
FOR d = 2 TO 9
  ar(d) = 1
  FOR v = 0 TO 9
    IF ar(v) = 0 THEN
      ar(v) = 1
      FOR a = 0 TO 9
        IF ar(a) = 0 THEN
          ar(a) = 1
            FOR t = 2 TO 9
                IF ar(t) = 0 THEN
                    ar(t) = 1
                      FOR r = v + 1 TO 9
                        IF ar(r) = 0 THEN
                            ar(r) = 1
                              FOR i = a + 1 TO 9
                                k = k + 1
                                IF ar(i) = 0 THEN
                                    s = (d + t) * 100 + (v + r) * 10 + a + i
                                    IF s > 999 AND s \ 10 MOD 10 = t THEN
                                        j = s MOD 10
                                        y = s \ 100 MOD 10
                                        IF j <> y AND ar(j) = 0 AND ar(y) = 0 THEN
                                            IF p + y + t + j < min THEN
                                                min = p + y + t + j
                                                PRINT d * 100 + v * 10 + a, t * 100 + r * 10 + i, s
                                            END IF
                                        END IF
                                    END IF
                                END IF
                              NEXT i
                            ar(r) = 0
                        END IF
                      NEXT r
                    ar(t) = 0
                END IF
            NEXT t
          ar(a) = 0
        END IF
      NEXT a
      ar(v) = 0
    END IF
  NEXT v
  ar(d) = 0
NEXT d
PRINT k

FOR r = v + 1 TO 9

FOR i = a + 1 TO 9