判断素数.prg

来自「寻找1-100之间的水仙花数的源程序 三角形面积 素数 追加纪录 乘法口诀。大家」· PRG 代码 · 共 17 行

set talk off
clear
input"请输入数据："to m
flag=.T.
i=2
do while i<=m-1.and.flag
  if mod(m,i)=0
    flag=.F.
?"不是素数!"
  else
    ?"所输入的数据是素数!"
 endif
  i=i+1
 enddo