【程序代码】求在1000~2000中满足能被3整除,且至少有一位数字是9的所有整数之和
来源:学生作业帮 编辑:搜狗做题网作业帮 分类:数学作业 时间:2024/07/22 11:42:26
【程序代码】求在1000~2000中满足能被3整除,且至少有一位数字是9的所有整数之和
![【程序代码】求在1000~2000中满足能被3整除,且至少有一位数字是9的所有整数之和](/uploads/image/z/3403903-31-3.jpg?t=%E3%80%90%E7%A8%8B%E5%BA%8F%E4%BB%A3%E7%A0%81%E3%80%91%E6%B1%82%E5%9C%A81000%7E2000%E4%B8%AD%E6%BB%A1%E8%B6%B3%E8%83%BD%E8%A2%AB3%E6%95%B4%E9%99%A4%2C%E4%B8%94%E8%87%B3%E5%B0%91%E6%9C%89%E4%B8%80%E4%BD%8D%E6%95%B0%E5%AD%97%E6%98%AF9%E7%9A%84%E6%89%80%E6%9C%89%E6%95%B4%E6%95%B0%E4%B9%8B%E5%92%8C)
Private Sub Command1_Click()
Dim s&,i&
i = 2
While i Mod 11 5 Or i Mod 17 3 ‘先找到符合条件的第一个i
i = i + 2
Wend
For i = i To 5000 Step 374 ’步长值是11与17及2的积1(11*17*2=374)
s = s + i * i '加入i的平方
Next i
Print s
End Sub
输出答案是:
106837484
Dim s&,i&
i = 2
While i Mod 11 5 Or i Mod 17 3 ‘先找到符合条件的第一个i
i = i + 2
Wend
For i = i To 5000 Step 374 ’步长值是11与17及2的积1(11*17*2=374)
s = s + i * i '加入i的平方
Next i
Print s
End Sub
输出答案是:
106837484
【程序代码】求在1000~2000中满足能被3整除,且至少有一位数字是9的所有整数之和
求[1,1000]之间能被3整除,且至少有一位上的数是所有数之和.
求[1.1000]之间能被3整除.且至少有一位上的数是5的所有数之和
c++ 能被5整除且至少有一位数字是5的所有整数的个数
c语言算法编程在100-999之间的自然数中,找出能被3整除,且至少有一位数字为5的所有整数,并计算个数
1到999之间能被3整除,且至少有一位数字是5的所有正整数个数
能被5整除且至少有一位数字是5的所有整数的个数 用pascal 最好讲明每一步的意思
pascal语言 1~N中能被5整除且至少有一位数字是5的所有整数的个数
Java 找出1-N中能被5整除且至少有一位数字是5的所有整数的个数
找出1-N中能被5整除且至少有一位数字是5的所有整数的个数.N
【程序代码vb】求在1~5000范围内所有偶数中满足被11整除余5,并且被17整除余3 的数之平方和
在所有个位数字之和等于34,且能被11整除的四位数中最大是?最小是?