e_322_03.f90

Fortran,骨灰级的语言

!碾转相除法：如27和6，先用27除以6，余数为3。再用6除以3，余数为零，即3为最大公约数。
read *, m,n
if(m.lt.n) then
	k=m; m=n; n=k
end if
k=mod(m,n)
do while (k/=0)
	m=n; n=k; k=mod(m,n)
end do
print *, '最大公约数＝',n
end