USSR puzzle digital

[DANILIN]

Numerals exactly all different are not required
and repetitions possible otherwise squares
were signed as in subject "rebus of letters"

though on greater number possible decision unique
or negative to use but I did not check

New program in source message for qbjs without goto
working slowly in 2 times

Here momentary algorithm with goto

Code: (Select All)

Dim s As Long: t = Timer
For a = 0 To 9: For b = 0 To 9: For c = 0 To 9
 For d = 0 To 9: For e = 0 To 9: For f = 0 To 9
  For g = 0 To 9: For h = 0 To 9: For i = 0 To 9
    s = s + 1
      If a * b - c <> 4 Then 7
      If d + e + f <> 8 Then 4
      If g / h + i <> 8 Then 1

      If a / d + g <> 9 Then 3
      If b + e + h <> 8 Then 2
      If c + f - i <> 6 Then 1

 Print a, b, c
 Print d, e, f
 Print g, h, i: Print: Print

 1 Next i
 2 Next h
 3 Next g
 4 Next f
 5 Next e
 6 Next d
 7 Next c
 8 Next b
9 Next a
Print s / 10 ^ 6; " mln", Timer - t
End