一级程序设计(答案).docVIP

一级程序设计(附答案) 8001题: 编写程序，求共有几组i、j、k符合算式ijk+kji=1333，其中i、j、k是0~9之间的一位整数。 原程序： s = 0 For i = 0 To 9 For j = 0 To 9 For k = 0 To 9 If i * 100 + j * 10 + k + k * 100 + j * 10 + i = 1333 Then s = s + 1 End If Next k Next j Next i Print s 答案：6 8002题: 编写程序，求四位数的偶数中，所有各位数字之和是15的倍数的数的和。 原程序： s = 0 For i = 1000 To 9999 Step 2 a = Int(i / 1000) b = Int((i Mod 1000) / 100) c = Int((i Mod 100) / 10) d = i Mod 10 If (a + b + c + d) Mod 15 = 0 Then s = s + i End If Next i Print s 答案：1592376 8003题: 编写程序，求三位数的偶数中，所有