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

Home > Numbers
What is .... ...... (Posted on 2017-11-19) Difficulty: 3 of 5
What is the answer to this alphametic?

plus*minus=penniless

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 Comment 1 of 1
1740*93240=162237600

DefDbl A-Z
Dim crlf$


Private Sub Form_Load()
 Form1.Visible = True
 
 
 Text1.Text = ""
 crlf = Chr$(13) + Chr$(10)
 
 '     plusmine
 s$ = "1234567890": h$ = s
 Do
   plus = Val(Left(s, 4))
   minus = Val(Mid(s, 5, 3) + Mid(s, 3, 2))
   penniless = 100000000 * Val(Left(s, 1)) + 10000100 * Val(Mid(s, 8, 1)) + 1100000 * Val(Mid(s, 7, 1))
   penniless = penniless + 10000 * Val(Mid(s, 6, 1)) + 1000 * Val(Mid(s, 2, 1)) + 11 * Val(Mid(s, 4, 1))
   If plus * minus = penniless Then Text1.Text = Text1.Text & plus & Str(minus) & Str(penniless) & crlf
   permute s
   DoEvents
 Loop Until s = h
 
 
 Text1.Text = Text1.Text & crlf & " done"
  
End Sub

  Posted by Charlie on 2017-12-02 14:55:23
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 (2)
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