...相等的自然数,它们之中任意两数之和为偶数,任意三数之和可以被3整除...

发布网友 发布时间：2024-10-23 23:19

我来回答

共2个回答

热心网友 时间：2024-10-27 23:18

给你个思路吧！！
1.任意两数之和为偶数，那个说明这四个数要么是全部是奇数，要么全都是偶数。
这个可以做为程序的入口，以循环的形式进行。

2.任意三数之和可以被3整除，这个可以做为判断输出的条件之一。比如说A,B,C,D四个数，（A+B+C）/3==0&&(ABD)/3==0&&(B+C+D)/3==0

3.已知它们的和不大于50，可以做为判断输出的条件之二。。
就像：（A+B+C+D)<=50
希望能给你一点提示，具体的代码还是希望你自己能编写出来。相信对你来说不会很难
呵呵，最后，如果你调试出来了。麻烦把代码和结果贴出来，以供后来大家一起学习学习。。。

热心网友 时间：2024-10-27 23:24

Private Sub Command1_Click()
Min = 50 '和不超过50 ，所以最小值设为50没问题
For i = 1 To 50 - 4
For j = 1 To 50 - i
For k = 1 To 50 - i - j
For l = 1 To 50 - i - j - k
s = i + j + k + l
If s < 50 Then '条件太多了，分开来写
If i <> j And i <> k And i <> l And j <> k And j <> l And k <> l Then
If (i + j) Mod 2 = 0 And (i + k) Mod 2 = 0 And (i + l) Mod 2 = 0 And (i + j + k) Mod 3 = 0 And (i + j + l) Mod 3 = 0 And (i + k + l) Mod 3 = 0 And (j + k + l) Mod 3 = 0 Then
If s < Min Then '符合要求的最小数
Min = s
Print i, j, k, l, s ' 四个数，及他们的和
Exit For
End If
End If
End If
End If
Next l, k, j, i
End Sub