编写程序,求在四位数的奇数中,所有各位数字之和是25的倍数的数的和?请大家帮个忙了.
问题描述：
编写程序,求在四位数的奇数中,所有各位数字之和是25的倍数的数的和?请大家帮个忙了.
答
我用VB写了：For i = 1001 To 9999 Step 2temp1 = i Mod 10n1 = Int(i / 10)temp2 = n1 Mod 10n2 = Int(i / 100)temp3 = n2 Mod 10temp4 = Int(i / 1000)If ((temp1 + temp2 + temp3 + temp4) = 25) ThenSum = Sum +...