Como fazer MMC em fortran?

integer function lcm(a,b)
    integer:: a,b
        lcm = a*b / gcd(a,b)
    end function lcm
 
    integer function gcd(a,b)
    integer :: a,b,t
        do while (b/=0)
            t = b
            b = mod(a,b)
            a = t
        end do
        gcd = abs(a)
    end function gcd

Como fazer MMC em fortran?

Faça um algoritmo que receba N números inteiros e calcule o minímo multiplo comum.

Nesse exercício vamos estudar mmc e Fortran.

Primeiro lembremos da seguinte expressão:

$$mmc(a,b)=\dfrac{ab}{mdc(a,b)}$$

Assim, temos:

Nesse exercício vamos estudar mmc e Fortran.

Primeiro lembremos da seguinte expressão:

$$mmc(a,b)=\dfrac{ab}{mdc(a,b)}$$

Assim, temos: