主题：谁来救救我！！！
LZJQB
[专家分：140] 发布于 2010-11-05 19:11:00
有那么一题（真的有！！）：1-20排成圈，使每一个数前后差都是素数（及质数）。
格式：横着打，第一个和最后一个的差是素数。
[em18][em18][em18][em18]
[fly][em18][em18][em18][em18][/fly]
回复列表 （共24个回复）
11 楼
huangyb731 [专家分：630] 发布于 2010-11-06 21:23:00
给我分
30
刷
12 楼
幽灵密码 [专家分：3510] 发布于 2010-11-08 21:05:00
[em10][em10][em10][em10][em10]
13 楼
huangyb731 [专家分：630] 发布于 2010-11-08 22:47:00
呃
幽灵密码也不会
14 楼
幽灵密码 [专家分：3510] 发布于 2010-11-08 22:47:00
答案
7 2 15 4 5 18 1 8 9 10 11 12 13 20 3 16 17 6 19 14
差是1的算不？不算的话答案就错了
15 楼
幽灵密码 [专家分：3510] 发布于 2010-11-08 22:48:00
20 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 18 19 17
16 楼
huangyb731 [专家分：630] 发布于 2010-11-09 19:57:00
程序？
17 楼
幽灵密码 [专家分：3510] 发布于 2010-11-09 21:43:00
先回答我的问题 差1的算不算
18 楼
幽灵密码 [专家分：3510] 发布于 2010-11-09 21:50:00
↓我自己尝试编了一个，但是结果一直出不来。。
CLS
DIM a(21)
FOR i = 1 TO 20
a(i) = i
NEXT i
DO
FOR i = 20 TO 2 STEP -1
FOR j = i - 1 TO 1 STEP -1
SWAP a(i), a(j)
FOR k = 1 TO 20
IF k = 20 THEN p = a(1) - a(20) ELSE p = a(k) - a(k + 1)
p = ABS(p)
IF p = 1 THEN GOTO 1
FOR l = 2 TO p \ 2
IF p MOD l = 0 THEN f = 0: GOTO 1
NEXT l
NEXT k
GOTO 2
1 NEXT j
NEXT i
LOOP
2
FOR i = 1 TO 20
PRINT a(i);
NEXT i
END
↑我自己尝试编了一个，但是结果一直出不来。。
19 楼
LZJQB [专家分：140] 发布于 2010-11-10 19:44:00
差是1的？
可以吧。。。。。。
[fly][em1][em1][em1][/fly]
20 楼
LZJQB [专家分：140] 发布于 2010-11-10 20:07:00
为什吗MOZ大大不来。。。。。
我发了短信给Ta......
我来回复
您所在位置：