DECLARE FUNCTION isprime! (m!)
CLS
FOR i = 2 TO 3000
    f = LEN(STR$(i)) - 1
    j = i
    IF isprime(j) THEN
       k = 0
       DO
         j = VAL(RIGHT$(LTRIM$(STR$(j)), LEN(LTRIM$(STR$(j))) - 1))
         f = f - 1
         IF isprime(j) = 0 THEN k = 1: EXIT DO
       LOOP UNTIL f = 0
       IF k = 0 THEN PRINT i;
    END IF
NEXT i
END

FUNCTION isprime (m)
FOR i = 2 TO INT(SQR(m))
    IF m MOD i = 0 THEN isprime = 0: EXIT FUNCTION
NEXT i
isprime = 1
END FUNCTION

TO：Matodied

你算是一个学习比较快的人,建议你去看看我写的"关于素数"之类的东西.你才会知道,什么叫算法.

谢谢

那么合数呢？有得请教请教您了

合数的算法与素数差不多只需把对素数的判定改成对合数的判定就行了。

如果是绝对合数指需要把IF isprime(j) = 0 THEN k = 1: EXIT DO这句的0改为1就行了。

谢谢！