کد فرترن برنامه ای که عدد 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