There are
76 solutions, of which
46 do not have zeros.
The first three solutions listed below have the lowest A, 1. The last fifteen have the highest A, 7. All with the highest A lack a zero.
Solutions marked * have no zeros, and the lowest A among these is 2.
ABCDE FGHJ
16584 2073
18456 2307
18760 2345
24568 3071
24856 3107
25408 3176
25496 3187 *
27608 3451
32568 4071
32856 4107
36712 4589 *
36728 4591 *
37208 4651
37512 4689 *
37528 4691 *
38016 4752
38120 4765
38152 4769 *
41896 5237 *
42968 5371 *
46312 5789 *
46328 5791 *
46712 5839 *
47136 5892 *
47328 5916 *
47368 5921 *
50184 6273
50728 6341
51024 6378
51072 6384
51832 6479 *
53928 6741 *
54312 6789 *
54328 6791 *
54712 6839 *
56184 7023
56248 7031
56328 7041
56824 7103
56832 7104
56984 7123 *
58104 7263
58416 7302
58496 7312 *
58912 7364 *
59328 7416 *
59368 7421 *
60184 7523
60248 7531
60328 7541
62504 7813
63152 7894 *
63528 7941 *
65072 8134
65392 8174 *
65432 8179 *
65704 8213
67152 8394 *
67320 8415
67352 8419 *
67512 8439 *
71456 8932 *
71536 8942 *
71624 8953 *
71632 8954 *
73248 9156 *
73264 9158 *
73456 9182 *
74528 9316 *
74568 9321 *
74816 9352 *
75328 9416 *
75368 9421 *
76184 9523 *
76248 9531 *
76328 9541 *
76
46
s$ = "0123456789": h$ = s
Do
If Left(s, 1) > "0" Then
num = Val(Left(s, 5))
den = Val(Right(s, 4))
If 8 * den = num Then
Text1.Text = Text1.Text & num & Str(den)
sct = sct + 1
If Mid(s, 6, 1) = "0" Then nzct = nzct + 1: Text1.Text = Text1.Text & " *"
Text1.Text = Text1.Text & crlf
End If
End If
permute s
DoEvents
Loop Until s = h
Text1.Text = Text1.Text & crlf & sct & crlf & nzct & crlf
Text1.Text = Text1.Text & "done"
|
|
Posted by Charlie
on 2019-08-11 12:28:47 |
computer solution
