/*Programa: Máximo Común Divisor

    Autores: Lidia y Pablo

Descripción: Este programa imprime el MCD de los números 148

y 212, teniendo en cuenta que el MCD es el máximo número

entero que divide a ambos*/

 

Program Mcd

 

      Method Main()

 

            Var X As Integer        //X será el MCD

            Var k As Integer

            Var N As Integer

            Var M As Integer

            N=148

            M=212

            X=1

     

            For k=1 To N

                  If (N Mod k=M Mod k) And (N Mod k=0) Then

                        X=k

                  End If

            Next

                       

            Print("El MCD de los números "+N+" y "+M+" es: "+X)

           

      End Method

 

End Program