1000以内,能被37整除的平方和.信息科技问题

来源:学生作业帮助网 编辑:作业帮 时间:2024/11/20 08:35:04
1000以内,能被37整除的平方和.信息科技问题
xR]k`+fD#{+a1X0ڀ&bۥb+vkeejqʿ4| 7H$\ < )Pʧp,Q,<nݏHȁB1q&>f҃dT.)oyIa&*W27zbcV 5tsuX TN`QҼ vhe!7yPF #1_b6ǻZHE8Ġ5 9JRb4ZE7܊0BHpbd\ϋXr~&/aӋx:և -LeW]-;H˛lDޛګڻ?Q;4G%vCHNV$F%_!"9@z*IװO+Vgl)|WC'"&S-R

1000以内,能被37整除的平方和.信息科技问题
1000以内,能被37整除的平方和.信息科技问题

1000以内,能被37整除的平方和.信息科技问题
因1000/37=27..1
又因37是质数,所以1000以内共有27个数能被37整除
分别为:37、74、111、.999
所以和为:37+74+111+.+999
=37(1+2+3+4+.+27)
=37*(1+27)*27/2
=37*14*27
=999*14
=13986

37只能被1和37整除,所以1000内37整除的平方和,就算37到999,公积是37的 等比数列的平方和就行

Dim sum As Long, i As Single
For i = 1 To 1000
If i Mod 37 = 0 Then
sum = sum + i * i
End If
Next i
Print sum
sum=9487170

是编程么= = 我们今天的考题诶╮(╯_╰)╭
s=1
i=0
Do while s<1000
If s mod 37 =0 then
i=s*s+i
else
i=i
End if
s=s+1
Loop
要答案的话自己编程算一下好了= =……

VB:
dim sum as long i as integer
for i = 1 to 1000
if i mod 37=0 then
sum=sum+i*i
end if
next i
print sum