A
m***6**13*3*n in a noisy
c**616x3a showed me this:
3*dois+oito=2*sete
Where was it?
What was the solution?
(In reply to
re: the equation part by Ady TZIDON)
The solution to the alphametic is
3517 5145 7848
dois oito sete
but 6 doesn't appear in it for substituting letters:
m***6**13*3*n c**616x3a
id d i xs
DefDbl A-Z
Dim crlf$, used(9)
Private Sub Form_Load()
Form1.Visible = True
Text1.Text = ""
crlf = Chr$(13) + Chr$(10)
For d = 1 To 9
If used(d) = 0 Then
used(d) = 1
For o = 1 To 9
If used(o) = 0 Then
used(o) = 1
For s = 1 To 9
If used(s) = 0 Then
used(s) = 1
For i = 0 To 9
If used(i) = 0 Then
used(i) = 1
For e = 0 To 9
If used(e) = 0 Then
used(e) = 1
For t = 0 To 9
If used(t) = 0 Then
used(t) = 1
DoEvents
dois = 1000 * d + 100 * o + 10 * i + s
oito = 1000 * o + 100 * i + 10 * t + o
sete = 1000 * s + 100 * e + 10 * t + e
If 3 * dois + oito = 2 * sete Then
Text1.Text = Text1.Text & dois & Str(oito) & Str(sete) & crlf
End If
used(t) = 0
End If
Next
used(e) = 0
End If
Next
used(i) = 0
End If
Next
used(s) = 0
End If
Next
used(o) = 0
End If
Next
used(d) = 0
End If
Next
Text1.Text = Text1.Text & "dois oito sete" & crlf
Text1.Text = Text1.Text & crlf & " done"
End Sub
|
|
Posted by Charlie
on 2017-10-04 13:35:08 |
re(2): the equation part
