All about flooble | fun stuff | Get a free chatterbox | Free JavaScript | Avatars
 perplexus dot info

 In Europe (Posted on 2017-10-04)
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?

 No Solution Yet Submitted by Ady TZIDON No Rating

Comments: ( Back to comment list | You must be logged in to post comments.)
 re(2): the equation part | Comment 3 of 6 |

The solution to the alphametic is

`3517 5145 7848dois 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)

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

 Search: Search body:
Forums (1)