*
十万内回文数
举报
发布于:2023-10-27
更新于:2023-10-27
1
409
作品介绍:
十万内回文数 回文数是指正读和反读都一样的正整数。例如37573是回文数。求出[10000,99999]以内的所有回文数的个数。 这是由下列vb程序转化的图形程序: Sub 十万内回文数() s = 1 For i = 10000 To 99999 a = i \ 10000 b = i \ 1000 Mod 10 c = i \ 100 Mod 10 d = i \ 10 Mod 10 e = i Mod 10 If (a + 10 * b + 100 * c + 1000 * d + 10000 * e) = i Then Cells(s, 1) = i: s = s + 1 Next i Cells(1, 2) = s - 1 End Sub
操作说明:
点击绿旗即可演算,一共有900个回文数,程序没有减一。