主题：谁来救救我！！！
LZJQB
[专家分：140] 发布于 2010-11-05 19:11:00
有那么一题（真的有！！）：1-20排成圈，使每一个数前后差都是素数（及质数）。
格式：横着打，第一个和最后一个的差是素数。
[em18][em18][em18][em18]
[fly][em18][em18][em18][em18][/fly]
回复列表 （共24个回复）
21 楼
幽灵密码 [专家分：3510] 发布于 2010-11-10 20:13: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)
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
给偶50分！
22 楼
幽灵密码 [专家分：3510] 发布于 2010-11-10 20:14:00
给我50分。。。。
23 楼
huangyb731 [专家分：630] 发布于 2010-11-10 21:30:00
1不是质数
24 楼
LZJQB [专家分：140] 发布于 2010-11-11 19:08:00
谢谢幽灵！！！！
我来回复
您所在位置：