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

来源:学生作业帮助网 编辑:作业帮 时间:2024/11/27 19:11:42
从1到1000中所有不能被6整除的数有多少个
xRoPWonIej{30aQ h|,s8hcKdͲYFN@s>_-/4'[)UJ=1ؖ-V}3rۇտy=,@ u - ٸ_sb֡vdXr Xq- ۊTP9Fx{AP죞ꒊAè ֱӚ^_0s6lS Nft4jG,.2A-b|.= ss5\5 K;a# ИHiՋo?Mٙ(RW_>3?;cnV أOH=& j6Ǐ'`Lw f*D8 3r7]}^_%)Ϥ %)>!?}~o-"*T#"frD#!T]XLP,EⳔrS1$ ܽz'_%JSMm(k⚏|+Ǔ "Ze|zJX^y

从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。