Question

100财富值求fortran 95程序， 具体是用do 命令循环计算大于n小于m这个区间（m和n是

100财富值求fortran 95程序，
具体是用do 命令循环计算大于n小于m这个区间（m和n是自己输入的）内的整数和E的最大公约数，只要第一个最大公约数等于1的数出现，循环停止，输出结果，没有最大公约数出现的话就继续直到第一个最大公约数是1的出现为止，在线急等，谢谢！

Answer 1

    	integer m,n,e
    	integer i,j,k
c    	data m,n,e /100,1000,501 /
	read(*,*)m,n,e
    	do 10 i=m,n
    	j=gcd(i,e)
    	if (j.eq.1) goto 999
10  	continue
999 	write(*,*)i
    	stop
    	end
 
    	integer function gcd(x,y)
    	integer x,y,z
    	integer i
    	if (x.ge.y) then
        	z=y
    	else
        	z=x
    	endif
    	do 20 i=z,1,-1
    	if ((mod(x,i).eq.0).and.(mod(y,i).eq.0)) then
        	gcd=i
        	return
    	endif
20  	continue
    	return
    	end