从1到1000中所有不能被6整除的数有多少个

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/06 06:17:18
从1到1000中所有不能被6整除的数有多少个

从1到1000中所有不能被6整除的数有多少个
从1到1000中所有不能被6整除的数有多少个

从1到1000中所有不能被6整除的数有多少个
整道题可以先算出能被6整除的数的个数,再用1000减去即可,步骤如下
其中能被整除的数满足形式及其通项公式:6、12、18、24.显然是一个等差数列,首项是6,公差是6,末项是996,所以要满足被6整除的个数是:
996/6=166.故不能被6整除的数有1000-166=834个.
上述是正确答案,望你能明白!

1000-167=833
你要干嘛?编程吗?
Private Sub Command1_Click()
Dim i, s
s = 1
For i = 1 To 1000
If i Mod 6 = 0 Then
s = s + 1
End If
Next i
Print 1000-s
End Sub

1000-[1000/6]

1000/6=166……4。及6的倍数有166个。1000-166=834。