 All about flooble | fun stuff | Get a free chatterbox | Free JavaScript | Avatars  perplexus dot info  A pandigital set (Posted on 2018-04-14) A+B=CD
E+F=G
H+I=J

Assign 0-9 digits to the letters A-J to make the above equations true.
REM: Choose only the solutions in which A>B; E>F & H>I. Comments: ( Back to comment list | You must be logged in to post comments.) computer solution | Comment 1 of 5
``` 6 4 10   A B CD 5 3 8    E F G 7 2 9    H I J
6 4 10   A B CD 7 2 9    E F G 5 3 8    H I J
7 3 10   A B CD 5 4 9    E F G 6 2 8    H I J
7 3 10   A B CD 6 2 8    E F G 5 4 9    H I J```

Of course the second and fourth solutions are trivial variations of the first and third, wher (e, f, g) and (h, i, j) are interchanged.

DefDbl A-Z
Dim crlf\$, dr

Form1.Visible = True
Text1.Text = ""
crlf = Chr(13) + Chr(10)

s\$ = "9876543210": hld\$ = s
Do
a = Val(Mid(s, 1, 1))
b = Val(Mid(s, 2, 1))
cd = Val(Mid(s, 3, 2))
e = Val(Mid(s, 5, 1))
f = Val(Mid(s, 6, 1))
g = Val(Mid(s, 7, 1))
h = Val(Mid(s, 8, 1))
i = Val(Mid(s, 9, 1))
j = Val(Mid(s, 10, 1))
If a > b And e > f And h > i Then
If a + b = cd Then
If e + f = g Then
If h + i = j Then
Text1.Text = Text1.Text & Str(a) & Str(b) & Str(cd) & crlf
Text1.Text = Text1.Text & Str(e) & Str(f) & Str(g) & crlf
Text1.Text = Text1.Text & Str(h) & Str(i) & Str(j) & crlf & crlf
End If
End If
End If
End If
DoEvents
permute s
Loop Until s = hld

Text1.Text = Text1.Text & crlf & " done"

End Sub

 Posted by Charlie on 2018-04-14 14:04:06 Please log in:

 Search: Search body:
Forums (2)