09/12/26 06:17:05
>>56 使用言語： 十進BASIC
FUNCTION isprime(n)
LET isprime=0
IF MOD(n,2)=0 THEN
IF n=2 THEN LET isprime=1
ELSE
FOR i=3 TO SQR(n) STEP 2
IF MOD(n,i)=0 THEN EXIT FOR
NEXT i
IF i>SQR(n) THEN LET isprime=1
END IF
END FUNCTION
FUNCTION is99(n)
LET is99=0
LET r=0
DO WHILE n>0
IF MOD(n,10)=9 THEN
LET r=r+1
IF r>2 THEN EXIT DO
END IF
LET n=INT(n/10)
LOOP
IF r=2 THEN LET is99=1
END FUNCTION
LET s=0
FOR j=20000 TO 40000
IF isprime(j)=1 AND is99(j)=1 THEN LET s=s+1
NEXT J
PRINT s
END ! 実行結果 141