判断素数.bak

寻找1-100之间的水仙花数的源程序 三角形面积 素数 追加纪录 乘法口诀。大家都可以随便下载 资源共享嘛

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.
?"不是素数!"
  endif
  i=i+1
 enddo
?"所输入的数据是素数!"