e_322_01.f90

fortran 教程

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