انجام پروژه فرترن نمونه کد فرترن اعداد اول بین دو عدد

 

کد فرترن برنامه ای که دو عدد m وn رو از کاربر میگیره و اعداد اول بین این دو عدد ذو نمایش میده.دقت کنید که فقط اعداد اول بین این دو عدد رو نشون میده و خود این اعداد در صورتی که اول باشند رو نشون نمیده,فقط بین شون.اگر میخواید خود این اعداد رو هم در صورت اول بودن نشون بده در حلقه DO  اولی به جای  i=m+1,n-1  بنویسید:   i=m,n

-----------------------------------------------------------------------------------------------------------------------------------------

 

 

 

PROGRAM prime

 

 

IMPLICIT NONE

 

 

INTEGER::n,i,k,j,m

 

 

READ*,m,n

 

 

PRINT*

 

 

DO  i=m+1,n-1

 

 

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