برنامه نویسی فرترن سی اف دی نمونه کد فرترن تشخیص عدد کامل

 

PROGRAM kamel

IMPLICIT NONE

INTEGER::n,s,i

READ*,n

s=0

DO  i=1,(n/2)+1

IF (MOD(n,i)==0) THEN

s=s+i

END IF

END DO

IF (s==n) THEN

PRINT*,"yes"

ELSE

PRINT*,"no"

END IF

END PROGRAM