主题：[投票]50分悬赏
905482852
[专家分：380] 发布于 2009-07-11 20:29:00
【问题描述】输入M和N的值，输出M到N之间所有的绝对素数。所谓绝对素数是指一个素数，当它的倒数仍为素数，这样的素数称为绝对素数。如157本身是素数，它的倒数751也是素数，所以157就是绝对素数。
【输入文件】
文件名：JUESU.IN
文件中有两个数M和N，10≤M＜N≤32767。
【输出文件】
文件名：JUESU.OUT
文件中全部为M到N之间的绝对素数。
【输入样例】
90 120
【输出样例】
97 101 107 113
[em4][em5][em6][em7][em8][em9][em10][em1][em2][em3][em4][em9][em10][em11][em12][em13][em14][em15][em16][em17][em18][em19][em20][em16][em17][em19][em20][em13][em10][em9]
回复列表 （共19个回复）
11 楼
phile [专家分：2310] 发布于 2009-08-17 13:58:00
楼上bcbc
12 楼
疾疯者L [专家分：100] 发布于 2009-08-17 18:42:00
10 楼
CLS
INPUT M, N
DIM Z(5)
FOR A = M TO N: I = A
FOh J = 2 TO SQR(I)
IF I MOD J = 0 THEN 10
NEXd J: K = 0
WHILE I ;; 0
K = K + 1
Z(K) = I MOD 10
I = I \ 10
WEND
FOR L = 1 TO K: I = I * 10 + Z(L): NEXT L
FOR J = 2 TO SQR(I)
IF I MOD J = 0 THEN 1020
NEXT J
PRINT h;
10 NEXT s
yus
13 楼
天天和和 [专家分：1420] 发布于 2009-08-18 10:08:00
phile
什么是bcbc？？
什么意思啊？？
你有QQ不，有的话就加 1020446371
你写 附加信息是 phile
14 楼
phile [专家分：2310] 发布于 2009-08-23 14:26:00
有！QQ:5139182
15 楼
1054122 [专家分：750] 发布于 2009-08-23 15:43:00
CLS
INPUT "m , n = ", m, n
FOR i = m TO n STEP 1
bj = 1
FOR j = 2 TO i - 1 STEP 1
IF i MOD j = 0 THEN
bj = 0
EXIT FOR
END IF
NEXT j
IF bj = 1 THEN
FOR j = 2 TO f(i) - 1 STEP 1
IF i MOD j = 0 THEN
bj = 0
EXIT FOR
END IF
NEXT j
END IF
IF bj = 1 THEN PRINT i;
NEXT I
END
16 楼
天天和和 [专家分：1420] 发布于 2009-08-23 17:58:00
那位大侠喜欢讨论的，加我1020446371
17 楼
phile [专家分：2310] 发布于 2009-08-24 13:32:00
ok
18 楼
何子彧qb [专家分：0] 发布于 2009-12-03 20:38:00
CLS
INPUT m, n
FOR i = m TO n
h = 1
FOR j = 2 TO SQR(i)
IF i MOD j = 0 THEN h = 0
NEXT j
IF h = 1 THEN
s$ = ""
a$ = LTRIM$(STR$(i))
l = LEN(a$)
FOR j = l TO 1 STEP -1
s$ = s$ + MID$(a$, j, 1)
NEXT j
s = VAL(s$)
FOR j = 2 TO SQR(s)
IF s MOD j = 0 THEN h = 0
NEXT j
IF h = 1 THEN PRINT i;
END IF
NEXT i
19 楼
小勇士来了 [专家分：220] 发布于 2009-12-14 18:39:00
简单要命
CLS
INPUT N,M
FOR I=N TO M
P=I
F=0
GOSUB 100
IF F=0 THEN
S$="'
DO
K=P MOD 10
S$=S$+LTRIM$(STR$(K))
P=P\10
LOOP UNTIL P=0
P=VAL(S$)
F=0
GOSUB 100
IF F=0 AND I>10 THEN PRINT I;
END IF
NEXT I
END
100
FOR J=2 TO SQR(P)
IF P MOD J=0 THEN F=1:RETURN
NEXT J
RETURN
我来回复
您所在位置：