求500以内最大的10个能被13或17整除的自然数之和

我只要结果~很急~快点啊··
2024-12-26 01:55:23
推荐回答(3个)
回答1:

For i = 500 To 1 Step -1 '能被13或17整除的自然数 If i Mod 13 = 0 Or i Mod 17 = 0 Then j = j + 1 sum = sum + i '求和 Print "第" & CStr(j) & "个:" & i If j = 10 Then Exit For End If Next i Print "总和:" & sum End Sub

回答2:

4639

回答3:

494 493 481 476 468 459 455 442 429 425