在1至50中,至少要取出几个不同的数,才能保证其中一定有一个数能被3整除?

这题用排除法就可以算,
1.1-50内能被3尽除的数和X能被3尽除这个没什么问题是吧
2.1275/3=425 可以被尽除
3.1275-X 就是不能被3整除的数的和,当然这个数也能被3除尽
上面答案只有c是可以被3尽除的

1至50以内3的倍数有
3、6、9、12、15、18、21
24、27、30、33、36、39
42、45、48

50=7x7+1
所以选被7除余1的和余2余3,还有一个整除的.
应该有8+7+7+1=23个.

思路：从1加到50,一共是1275
能被三除尽的数为,3,6,9……,48,这些数加起来是408
所以不能被三整除的数的和是1275-408=867

五个零

有因数3的最小偶数是 6
最小奇数是 3

5的倍数有l0个

故事所占的页书数分别是1、2、3、.、49、50
先印偶数页,印完以后再印奇数页,这样以奇数也开头的最多,为：25+（25+1）/2=38
先印奇数页,印完后再印偶数页,这样以奇数页开头的最少
为：（25+1）/2=13

很完美
Dim M(49) As Integer,N() As Integer
'判断某元素是否属于某数组
Function cf(B() As Integer,nn As Integer) As Boolean 'B()为数组,nn为元素
On Error Resume Next '防止空数组
For Each v In B
If v = nn Then cf = True:Exit For
Next v
End Function
Private Sub Command1_Click()
Dim m1 As Integer,n1 As Integer 'm1存放M()随机下标,n1存放N()上届
'初始化数组a(),1-50
For i = 0 To 49
M(i) = i + 1
Next i
'初始化集合N
Do
Randomize '随机
m1 = M(Int(50 * Rnd)) '生成M()随机下标
If cf(N(),m1) = flase Then '防止N()元素重复
ReDim Preserve N(n1) '重置数组长度
N(n1) = m1 '新元素赋值
n1 = n1 + 1 '数组上届变量加1
End If '结束判断
Loop While UBound(N) < 24 '循环语句块结束
'输入六个数字
Dim k As Integer '存放输入数字
For j = 1 To 6
k = Val(InputBox("请输入6个数字,第" & j & "个数字"))
If cf(N(),k) = False Then '不属于
'输出集合N()
For Each v In N
Print v & ",";
Next v
Print '换行
MsgBox (k & "不属于集合N()")
Else '属于
MsgBox (k & "属于集合N()")
End If
Next j
End Sub
由于你的要求有点歧义,这里假定是判断6个数字中每个数字是否属于集合N,而不是判断是否全部属于,当然,这都是次要的,主要部分的代码已给出,可以自己改.
注：任取25个数还有一种方法是先给M随机排序,再顺序输出25元素,皆可

A1输入公式=(ROW()-1)*50+INT(RAND()*50)
然后向下拉到A20,再横拉10列就出200个随机数了

不是2、3、5的倍数有1、7、11、13、17、19、23、29、31、37、41、43、47、49,一共是14个.

【解】52被分成两个数相加,总共可以分成52/2=26组,最后一组其实是两个26.
那么你从1-50中任取27个数字,必定有两个数字,是这26组数中的一组,也就是说一定存在两个数的和等于52.（抽屉原理）

第1 first
第2 second
第3 third
第4 fourth
第5 fifth
第6 sixth
第7 seventh
第8 eighth
第9 ninth
第10 tenth
第11 eleventh
第12 twelfth
第13 thirteenth
第14 fourteenth
第15 fifteenth
第16 sixteenth
第17 seventeenth
第18 eighteenth
第19 nineteenth
第20 twentieth
第21 twenty-first
第22 twenty-second
第23 twenty-third
第24 twenty-fourth
第25 twenty-fifth
第26 twenty-sixth
第27 twenty-seventh
第28 twenty-eighth
第29 twenty-ninth
第30 thirtieth
第31 thirty-first
第32 thirty-second
第33 thirty-third
第34 thirty-fourth
第35 thirty-fifth
第36 thirty-sixth
第37 thirty-seventh
第38 thirty-eighth
第39 thirty-ninth
第40 fortieth
第41 forty-first
第42 forty-second
第43 forty-third
第44 forty-fourth
第45 forty-fifth
第46 forty-sixth
第47 forty-seventh
第48 forty-eighth
第49 forty-ninth
第50 fiftieth

把从1至50的自然数分成26组,分别是{2,50},{3,49}……{25,27},{1},{26}
所以任取27个数,一定有两个数在一组,那么这两个数的和等于52.