e_212_02.f

来自「Fortran77和90/95编程入门对应的程序源码」· F 代码 · 共 11 行

      read *, n
	i=2
    1 continue
	if(mod(n,i).eq.0) then
	    print *, '不是素数，可被',i,'整除'
      else
          i=i+1
          if(i.le.int(sqrt(n*1.))) go to 1
          print *, '是素数'
      end if
      end