vfp设计程序判断一个数是否为素数

如题所述

一个大于1的自然数,除了1和它本身外,不能被其他自然数整除,换句话说就是该数除了1和它本身以外不再有其他的因数;否则称为合数。

clear
input '请输入一个大于1的正整数:' to n
lifss=.t. &&存储是否为素数的指针变量
for i=2 to n-1
if n/i=int(n/i)
lifss=.f. &&不是素数
exit
endif
endfor
if lifss
?n,'是素数'
else
?n,'不是素数'
endif
温馨提示:答案为网友推荐,仅供参考
相似回答