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

 

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

 

PROGRAM mas

 

1. IMPLICIT NONE

 

2. INTEGER::n,s,i,a,m

 

3. READ*,m,n

 

4. IF (n>m) THEN

 

5. a=m

 

6. m=n

 

7. n=a

 

8. END IF

 

9. DO  i=1,n

 

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

 

11. IF (MOD(m,i)==0) THEN

 

12. PRINT*,i

 

13. END IF

 

14. END IF

 

15. END DO

 

16. END