هوافضا و مکانیک دانشگاه صنعتی شریف

کد فرترن برنامه ای که عدد n رو میگیره و اعداد اول 1 تا n رو نمایش میده.همون طور که در پست های قبلی گفتم یکی از راه های تشخیص اول بودن یک عدد اینه که بررسی کنیم تعداد مقسوم علیه هاش چند تاس؟اگر 2 تا باشه اون عدد,عدد اوله.منم هم از همین روش استفاده کردم و همه اعداد از 1 تا n رو بررسی کردم.

program prime
implicit none
INTEGER::n,i,k,j
READ*,n
PRINT*
do i=1,n
k=0
do j=1,i
if (MOD(i,j)==0) then
k=k+1
end if
end do
if (k==2) then
PRINT*,i
end if
end do
end