主题：为了这个问题，我累倒了~
傻傻的我
[专家分：0] 发布于 2005-08-09 20:14:00
11，323，74947，63133136这样的树是回文数，他们的特点是最高位、最低位的数相同，次高位，次低位相同.......其中11是个更特殊的回文数，他的平方121、立方1331也是回文数。这个最小的一个具有这种性质的回文数。请编写程序，找出三次方小于999999999的具有上述性质的所以回文数。
（各位，帮帮忙吧。。。。。）
回复列表 （共7个回复）
沙发
jyf1987 [专家分：930] 发布于 2005-08-09 20:57:00
穷举
板凳
laoya1987 [专家分：0] 发布于 2005-08-09 21:33:00
[em9]你的确很傻！
3 楼
jyf1987 [专家分：930] 发布于 2005-08-10 09:34:00
穷举并不多
谁让你从1开始一个个试了
你可以按造回文数的性质用9个数字造数来穷举，应该很快
电脑比人的优势就在穷举厉害啊
4 楼
moz [专家分：37620] 发布于 2005-08-10 12:34:00
其实问题我还没看明白
是求一个数:
1. 这个数是回文数,且它的立方也是回文数?
2. 只要这个数的立方是回文数就可以了?
3. 这个数是回文数,立方少于99....就行了?
5 楼
jyf1987 [专家分：930] 发布于 2005-08-11 08:25:00
是啊，我也觉着糊涂
6 楼
def [专家分：3380] 发布于 2005-08-14 04:35:00
7 楼
莹萍 [专家分：130] 发布于 2005-08-19 21:19:00
DIM x AS DOUBLE, y AS DOUBLE, z AS DOUBLE
x = 11: y = x ^ 2: z = x ^ 3
WHILE z <= 999999999
a$ = LTRIM$(STR$(x)): b$ = LTRIM$(STR$(y)): c$ = LTRIM$(STR$(z))
p1 = LEN(a$): p2 = LEN(b$): p3 = LEN(c$)
n1 = 0: n2 = 0: n3 = 0: flag = 0
FOR i = 1 TO p1 \ 2
k1$ = MID$(a$, i, 1): k2$ = MID$(a$, p1 - i + 1, 1)
IF k1$ = k2$ THEN n1 = n1 + 1
NEXT i
IF n1 <> p1 \ 2 THEN flag = 1
FOR i = 1 TO p2 \ 2
k1$ = MID$(b$, i, 1): k2$ = MID$(b$, p2 - i + 1, 1)
IF k1$ = k2$ THEN n2 = n2 + 1
NEXT i
IF n2 <> p2 \ 2 THEN flag = 1
FOR i = 1 TO p3 \ 2
k1$ = MID$(c$, i, 1): k2$ = MID$(c$, p3 - i + 1, 1)
IF k1$ = k2$ THEN n3 = n3 + 1
NEXT i
IF n3 <> p3 \ 2 THEN flag = 1
IF flag = 0 THEN PRINT x;
x = x + 1: y = x ^ 2: z = x ^ 3
WEND
END
我来回复
您所在位置：