Question

从0,4,5,8,9，五个数字中选出4个，组成能同时被2,3,5整除的四位数有哪些？

写出所有符合条件的数，并按从小到大顺序排列。很急的！！！

Answer 1

同时被2,5整除则个位为0
能被3整除则各位和是3的倍数故取4，5，9
故组成能同时被2,3,5整除的四位数有：4590 4950 5490 5940 9450 9540

Answer 2

9840 、9540、9480、9450、8940、8490、5940、5490、4980、4950、4890 、4590

Answer 3

4590,4950,4890,4980,5490,5940,8490,8940，9450,9540

Answer 4

能整除2*3*5都是，能整除30就行所以后面一定是个0就还有3个数，除3的话加起来能除3就能被整除4590 4950 4890 4980 5490 5490 8490 8940 9450 9540 9480 9840就这写了

Answer 5

5490、4890、8490、4590

Answer 6

Private Sub Form_Load()
Dim a(4), c(3), i, j, k, l, s, b, d, e As Integer, f As Boolean
a(0) = 0
a(1) = 4
a(2) = 5
a(3) = 8
a(4) = 9

For i = 0 To 4
For j = 0 To 4
For k = 0 To 4
For l = 0 To 4
s = a(i) * 1000 + a(j) * 100 + a(k) * 10 + a(l)
If s Mod 2 + s Mod 3 + s Mod 5 = 0 Then
c(0) = a(i)
c(1) = a(j)
c(2) = a(k)
c(3) = a(l)
f = True
For d = 0 To 3
For e = 0 To d
If c(d) = c(e) And d <> e Then f = False: Exit For
Next e
Next d
If f Then
b = b + 1
Debug.Print s,
If b Mod 6 = 0 Then Debug.Print
End If
End If
Next l
Next k
Next j
Next i
Debug.Print
Debug.Print "共有" & b & "个四位数。"
End Sub

4590 4890 4950 4980 5490 5940
8490 8940 9450 9480 9540 9840

共有12个四位数。