// 质数又称素数。一个大于1的自然数,除了1和它自身外,不能被其他自然数整除的数叫做质数;否则称为合数
#Flag := 1;
FOR #I := 2 TO ROUND(SQRT(#N)) DO
IF #N MOD #I = 0 THEN // Statement section FOR
#Flag := 0;
END_IF;
END_FOR;
IF #Flag = 1 THEN
#Result := 'O.K';
ELSE
#Result := 'N.G';
END_IF;
该文源自工控小周
閱讀更多 笨笨熊笨笨噠 的文章