vfp 求10-100之间的互逆素数(如13是素数 31也是素数)
求10-100之间的互逆素数(如13是素数 31也是素数)
程序代码:
FOR i = 10 TO 100 IF isPrimer(i) IF isPrimer(inverse(i)) ? i ENDIF ENDIF ENDFOR FUNCTION isPrimer(n) LOCAL i, Ret Ret = .T. FOR i = 2 TO SQRT(n) IF n % i == 0 Ret = .F. EXIT ENDIF ENDFOR RETURN Ret ENDFUNC FUNCTION inverse(n) LOCAL m, a m = 0 DO WHILE n > 0 a = n % 10 m = m * 10 + a n = INT(n / 10) ENDDO RETURN m ENDFUNC