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

Home > General
In Europe (Posted on 2017-10-04) Difficulty: 3 of 5
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 |
(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
Please log in:
Login:
Password:
Remember me:
Sign up! | Forgot password


Search:
Search body:
Forums (0)
Newest Problems
Random Problem
FAQ | About This Site
Site Statistics
New Comments (9)
Unsolved Problems
Top Rated Problems
This month's top
Most Commented On

Chatterbox:
Copyright © 2002 - 2017 by Animus Pactum Consulting. All rights reserved. Privacy Information