已知S1=1,S2=1+2,S3=1+2+3,…SN=1+2+3+…+N,求S1,S2,S3,…S2200中有多少个能被

已知S1=1,S2=1+2,S3=1+2+3,…SN=1+2+3+…+N,求S1,S2,S3,…S2200中有多少个能被3或7整除的数.
编程题!
有一处错误请修改一下给出结果吧!
SET TALK OFF
CLEA
I=1
N=0
DO WHILE I

aijiejieyang 1年前已收到1个回答举报

恋人永在心幼苗

共回答了22个问题采纳率：100% 举报

Private Sub Command1_Click()
For i = 1 To 2200
a = a + 1
s = s + a
If s Mod 3 = 0 Then B1 = B1 + 1
If s Mod 7 = 0 Then B2 = B2 + 1
Next
Print "被3整除的有"; B1; "个"
Print "被7整除的有"; B2; "个"
End Sub
不好意思,只学VB,在网吧弄的~
答案是：B1=1466 B2=628

1年前

可能相似的问题

已知s1=1,s2=1+2,s3=1+2+3,.sn=1+2+3+.+n,求Dn=s1+s2+s3,.sn

1年前2个回答
已知S1=1,S2=1+2,S3=1+2+3,...,SN=1+2+3+...+N,求S1,S2,S3,...,S100

1年前2个回答
已知s1=1 s2=1+2 s3=1+2+3 .sn=1+2+3+...+n 求s1 s2 s3 ...s2000中有多

1年前1个回答
已知s1=1,s2=1+2,s3=1+2+3,.sn=1+2+3+.+n,求s1,s2,s3.s1500有多少个能被6和

1年前1个回答
已知s1=1,s2=1+2,s3=1+2+3,.sn=1+2+3+.+n,求s1,s2,s3.s1000有多少个能被8和

1年前2个回答
已知Sn=1/2n(n+1),Tn=S1+S2+S3+.+Sn,求Tn.

1年前7个回答
高中数学数列证明已知Sn=2^n-1证明：n/2 - 1/3 < S1/S2 + S2/S3 +.+ Sn/Sn+1 <

1年前1个回答
已知等差数列an=2n+1,求和s1+s2+s3.sn

1年前2个回答
已知Sn=n^2,Tn=1/S1+1/S2+1/S3+...+1/Sn,求证Tn

1年前1个回答
已知数列{an}是等差数列,前n项和为Sn,a3=6,s3=12,求S1+S2+S3+S4+.+Sn的值

1年前3个回答
等比数列{an}中,前n项和为sn,已知S1,S3,S2成等差数列.问：若a1-a3=3,求数列S1、S3、S2的公差d

1年前3个回答
已知数列{an}的前n项和sn=1/2n求证;s1+s2+s3+……+sn各自平方的和 < 7/16

1年前2个回答
等比数列{an}的前n项和为Sn，已知S1，S3，S2成等差数列

1年前1个回答
等比数列{an}的前n项和为Sn，已知S1，S3，S2成等差数列

1年前1个回答
等比数列{an}的前n项和为Sn，已知S1，S3，S2成等差数列

1年前1个回答
等比数列{an}的前n项和为Sn，已知S1，S3，S2成等差数列

1年前1个回答
等比数列{an}的前n项和为Sn，已知S1，S3，S2成等差数列

1年前1个回答
等比数列{an}的前n项和为Sn，已知S1，S3，S2成等差数列

1年前1个回答
等比数列{an}的前n项和为Sn，已知S1，S3，S2成等差数列

1年前3个回答

你能帮帮他们吗

精彩回答