t e s p h a l o b
5 1 3 7 9 4 2 0 6
done
boss, please set 8p the best health test.
boss, please set up the best health test.
For t = 1 To 9
used(t) = 1
For p = 1 To 9
If used(p) = 0 Then
used(p) = 1
For e = 1 To 9
If used(e) = 0 Then
used(e) = 1
ee = 11 * e
For h = 0 To 9
If used(h) = 0 Then
used(h) = 1
th = 10 * t + h
For l = 0 To 9
If used(l) = 0 Then
used(l) = 1
help = 1000 * h + 100 * e + 10 * l + p
For b = 0 To 9
If used(b) = 0 Then
used(b) = 1
For s = 0 To 9
If used(s) = 0 Then
used(s) = 1
test = 1001 * t + 100 * e + 10 * s
For a = 0 To 9
If used(a) = 0 Then
used(a) = 1
that = 1001 * t + 100 * h + 10 * a
tablet = 100001 * t + 10000 * a + 1000 * b + 100 * l + 10 * e
For o = 0 To 9
If used(o) = 0 Then
used(o) = 1
pol = 100 * p + 10 * o + l
If test * p Mod 10000 = that Then
If help * th + ee * pol = tablet Then
Text1.Text = Text1.Text & " t e s p h a l o b " & crlf
Text1.Text = Text1.Text & Str(t) & Str(e) & Str(s) & Str(p) & Str(h) & Str(a) & Str(l) & Str(o) & Str(b) & crlf
End If
End If
used(o) = 0
End If
Next
used(a) = 0
End If
Next
used(s) = 0
End If
Next
used(b) = 0
End If
Next
used(l) = 0
End If
Next
used(h) = 0
End If
Next
used(e) = 0
End If
Next
used(p) = 0
End If
Next
used(t) = 0
Next
|
|
Posted by Charlie
on 2014-08-19 12:20:04 |
computer solution
