主题:[讨论]急急急,哪位大虾帮我呀,一个QB题目呀
【问题描述】
我们将左右对称的自然数称为回文数,例如:121,4114等;
将只能被1与其本身整除的自然数称之为素数,例如:7,353等。
键入N,M,求出N至M(含N与M)之间既是回文数又是素数的自然数共有多少个?
【问题分析】
本题可以分两步来做:1、求出N至M中的回文数;2、对于每一个求出的回文数,判断其是否为素数。
【程序清单】
INPUT "N,M=";N,M
DIM A(100)
S=0
FOR I=N TO M
Q=0
J=0
T=I
DO
J=J+1
( ① )
T=INT(T/10)
LOOP UNTIL T=0
FOR K=1 TO INT(J/2)
IF ( ② ) THEN Q=1
NEXT K
IF ( ③ ) THEN
FOR K=2 TO SQR(I)
IF I MOD K=0 THEN ( ④ )
NEXT K
END IF
IF I=1 THEN Q=1
IF Q=0 THEN S=S+1
NEXT I
PRINT S
END
我们将左右对称的自然数称为回文数,例如:121,4114等;
将只能被1与其本身整除的自然数称之为素数,例如:7,353等。
键入N,M,求出N至M(含N与M)之间既是回文数又是素数的自然数共有多少个?
【问题分析】
本题可以分两步来做:1、求出N至M中的回文数;2、对于每一个求出的回文数,判断其是否为素数。
【程序清单】
INPUT "N,M=";N,M
DIM A(100)
S=0
FOR I=N TO M
Q=0
J=0
T=I
DO
J=J+1
( ① )
T=INT(T/10)
LOOP UNTIL T=0
FOR K=1 TO INT(J/2)
IF ( ② ) THEN Q=1
NEXT K
IF ( ③ ) THEN
FOR K=2 TO SQR(I)
IF I MOD K=0 THEN ( ④ )
NEXT K
END IF
IF I=1 THEN Q=1
IF Q=0 THEN S=S+1
NEXT I
PRINT S
END