Estoy realizando un ejercicio de mcd de dos numeros,
en teoria lo he probado y me sale, pero no se si esta bien, y me funciona porque he tenido suerte,
var
num1,num2,contador,i,mcd:numerico
divisibles: vector[100] numerico
inicio
cls()
imprimir("Introduzca el primer numero ")
leer(num1)
imprimir("Introduzca el segundo numero ")
leer(num2)
contador=0
desde i=1 hasta num1
{
si(num1%i==0)
{
contador=contador+1
divisibles[contador]=i
}
}
desde i=1 hasta num2
{
si(num2%i==0)
{
contador=contador+1
divisibles[contador]=i
}
}
si(num1>num2)
{
desde i=1 hasta contador
{
si(num1%divisibles[i]==0)
{
mcd=divisibles[i]
}
}
}
si(num2>num1)
{
desde i=1 hasta contador
{
si(num1%divisibles[i]==0)
{
mcd=divisibles[i]
}
}
}
imprimir(mcd)
fin
Que opinais
PD:Le quiero dar las gracias al usuario appl3e por su comentario, se puede decir que de alguna manera me ha abierto los ojos