怎样用fortran求两个数的最大公因数
问题描述：
怎样用fortran求两个数的最大公因数
答
program main!辗转相除法integer m,ncommon m,nprint*,'Please input two positive integers:'read(*,*) m,ncall Euclid(m,n)endprogramsubroutine Euclid(m,n)integer rdo while(n.ne.0) r = mod(m,n) m = n n = re...