Mínimo común múltiplo

Lenguaje

PSeInt (Pseudocódigo)
Descripción

Pide 2 números enteros y calcula el mínimo común múltiplo

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28

Algoritmo ProcesoMCD

    mcm <- 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 O divisor<=b Hacer

        Mientras (divisor<=a Y a MOD divisor=0) O (divisor<=b Y b MOD divisor=0) Hacer

            mcm <- mcm * divisor;

            Si divisor<=a Y a MOD divisor=0 Entonces

                a <- a / divisor;

            FinSi

            Si divisor<=b Y b MOD divisor=0 Entonces

                b <- b / divisor;

            FinSi

        FinMientras

        divisor <- divisor + 1;

    FinMientras

    Escribir "Mínimo común múltiplo: ", mcm;

FinAlgoritmo