For i = 100 To 666A = i \ 100B = i \ 10 Mod 10c = i Mod 10If (B + c) Mod 10 = A Thenf = TrueEnd IfFor x = 2 To i - 1If i Mod x = 0 Thenf = FalseExit ForEnd IfNext xIf f Thens = s + 1End If
1、有一个三位数满足下列条件: (1)此三位数的三位数字各不相同; (2)此三位数等于它的各位数字的立方和。试求所有这样的三位数之和。2、[100,666]范围内同时满足以下两个条件的十进制数. ⑴其个位数字与十位数字之和除以10所得的余数是百位数字;⑵该数是素数; 求有多少个这样的数?