e_212_03.f90

来自「Fortran77和90_95编程入门,里面还有详细的例子。」· F90 代码 · 共 15 行

read *, n
i=2; k=0
do while (i<=int(sqrt(n*1.)) .and. k==0)
    if(mod(n,i).eq.0) then
        k=i
    else
        i=i+1
    end if
end do
if(k==0) then
    print *, '是素数'
else
    print *, '不是素数，可被',k,'整除'
end if
end