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

Home > Numbers
Two out of seven (Posted on 2016-07-07) Difficulty: 4 of 5
There are 7 distinct solution to my alphametic puzzle:
YES*NO=MAYBE

Please find the solution for which:
a. SOME+MANY
rends the largest result.
a. SOME-MANY
rends the largest result.

See The Solution Submitted by Ady TZIDON    
No Rating

Comments: ( Back to comment list | You must be logged in to post comments.)
Solution computer solution (spoiler) Comment 2 of 2 |
                                  SOME    SOME
YES*NO = MAYBE       SOME  MANY   +MANY   -MANY
384*27 = 10368       4718  1023   5741    3695
567*38 = 21546       7826  2135   9961    5691
605*82 = 49610       5240  4986   10226    254
705*28 = 19740       5810  1927   7737    3883
705*38 = 26790       5820  2637   8457    3183
706*35 = 24710       6520  2437   8957    4083
705*62 = 43710       5240  4367   9607    873

Largest sum is produced by: 605*82 = 49610  (sum is 10226)
Largest difference is produced by:  567*38 = 21546 (difference is 5691)



DefDbl A-Z
Dim crlf$, used(9)


Private Sub Form_Load()
 Form1.Visible = True
 
 
 Text1.Text = ""
 crlf = Chr$(13) + Chr$(10)
 
 For y = 1 To 9
  If used(y) = 0 Then
    used(y) = 1
 For n = 1 To 9
  If used(n) = 0 Then
    used(n) = 1
 For m = 1 To 9
  If used(m) = 0 Then
    used(m) = 1
 For e = 0 To 9
  If used(e) = 0 Then
    used(e) = 1
 For s = 0 To 9
  If used(s) = 0 Then
    used(s) = 1
    yes = 100 * y + 10 * e + s
 For o = 0 To 9
  If used(o) = 0 Then
    used(o) = 1
    no = 10 * n + o
 For a = 0 To 9
  If used(a) = 0 Then
    used(a) = 1
 For b = 0 To 9
  If used(b) = 0 Then
    used(b) = 1
    
    maybe = 10000 * m + 1000 * a + 100 * y + 10 * b + e
    If yes * no = maybe Then
      somev = 1000 * s + 100 * o + 10 * m + e
      manyv = 1000 * m + 100 * a + 10 * n + y
      Text1.Text = Text1.Text & yes & "*" & no & " = " & maybe & "       "
      Text1.Text = Text1.Text & somev & "  " & manyv & "   "
      Text1.Text = Text1.Text & somev + manyv & "    " & somev - manyv & crlf
    End If
    
    used(b) = 0
  End If
 Next
    used(a) = 0
  End If
 Next
    used(o) = 0
  End If
 Next
    used(s) = 0
  End If
 Next
    used(e) = 0
  End If
 Next
    used(m) = 0
  End If
 Next
    used(n) = 0
  End If
 Next
    used(y) = 0
  End If
 Next
 
 
 Text1.Text = Text1.Text & crlf & " done"
  
End Sub


  Posted by Charlie on 2016-07-07 15:29:29
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 (3)
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