• Lenguaje

    PSeInt (Pseudocódigo)

  • Descripción

    Pide 2 números enteros y calcula el máximo común divisor

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Algoritmo ProcesoMCD
    mcd <- 1;
    Escribir Sin Saltar "Ingrese el valor de A: ";
    Leer a;
    Escribir Sin Saltar "Ingrese el valor de B: ";
    Leer b;
    Si a<0 Entonces
        a <- -a;
    FinSi
    Si b<0 Entonces
        b <- -b;
    FinSi
    divisor <- 2;
    Mientras divisor<=a Y divisor<=b Hacer
        Mientras a MOD divisor = 0 Y b MOD divisor = 0 Hacer
            mcd <- mcd * divisor;
            a <- a / divisor;
            b <- b / divisor;
        FinMientras
        divisor <- divisor + 1;
    FinMientras
    Escribir "Máximo común divisor: ", mcd;
FinAlgoritmo