QBasic无暇素数

来源：百度知道 编辑：UC知道 时间：2024/05/10 12:57:33
无暇素数是一个两位数，各位、十位对调后还是素数。求所有的无暇素数
快快快快快快快快快快快快快快快快快快快快快快快快快快快！！！！！！！！！！！！！！！！！

CLS
FOR i = 10 TO 99
k = 0: t = 0
DO
k = k + 1
FOR j = 2 TO i /2
IF k * j = i THEN t = t + 1: EXIT DO
NEXT j
LOOP UNTIL k = i
k=0
p1 = FIX(i / 10)*10+i\10
do
k=k+1
for j = 2 to p1\2
if k*j=p1 then t=t+1:exit do
next j
loop until k=p1

IF t = 0 THEN PRINT i, : y = y + 1
NEXT i
PRINT
PRINT "all"; y
END