作业帮从0,7,5,3四张数字卡片中挑三张排成能同时被2,3,5整除的三位数要有过程!
来源：学生作业帮助网 编辑：作业帮 时间：2024/05/14 12:38:53
从0,7,5,3四张数字卡片中挑三张排成能同时被2,3,5整除的三位数要有过程!
从0,7,5,3四张数字卡片中挑三张排成能同时被2,3,5整除的三位数
要有过程!
从0,7,5,3四张数字卡片中挑三张排成能同时被2,3,5整除的三位数要有过程!
即能被30整除,即能被10和3整除,末位一定是0,前两位的和能被3整除,即可!
能同时被2、3、5整除，就是它们的乘积了
2*3*5＝30
你的问题中是要用三个数字，
这儿个位已经限制了，必须为0才能满足2和5的条件
可被3整除的数，必须是相加能被3整除
所以这儿，只能是用5和7
最后就是0，5，7三个数字可满足条件
但有两个答案
750和570都正确...
全部展开
能同时被2、3、5整除，就是它们的乘积了
2*3*5＝30
你的问题中是要用三个数字，
这儿个位已经限制了，必须为0才能满足2和5的条件
可被3整除的数，必须是相加能被3整除
所以这儿，只能是用5和7
最后就是0，5，7三个数字可满足条件
但有两个答案
750和570都正确
收起
2
Private Sub Form_Load() Dim a(3), b, i, j, k a(0) = 0 a(1) = 7 a(2) = 5 a(3) = 3 For i = 0 To 3 For j = 0 To 3 For k = 0 To 3 If a(i) <> a(j) And a(j) <> a(k) And a(i) <> a(k) And a(i) <> 0 Then b = a(i) * 100 + a(j) * 10 + a(k) Print b; If b Mod 2 + b Mod 3 + b Mod 5 = 0 Then Print "能被2、3、5整除！" Else Print End If Next k Next j Next i End Sub