-
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
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
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