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

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

 

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