-
Lenguaje
PSeInt (Pseudocódigo)
-
Descripción
Pide un número entero positivo, calcula la cifra inversa y muestra si es capicua
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Algoritmo ProcesoInverso
inverso <- 0;
Escribir Sin Saltar "Ingrese un número:";
Leer numero;
residuo <- numero;
Mientras residuo > 0 Hacer
inverso <- inverso * 10 + residuo mod 10;
residuo <- (residuo - residuo mod 10) / 10;
FinMientras
Escribir "";
Escribir "Valor del número inverso: ", inverso;
Escribir Sin Saltar "El número ", numero, " ";
Si numero = inverso Entonces
Escribir Sin Saltar "si";
Sino
Escribir Sin Saltar "no";
FinSi
Escribir " es capicua.";
FinAlgoritmo
inverso <- 0;
Escribir Sin Saltar "Ingrese un número:";
Leer numero;
residuo <- numero;
Mientras residuo > 0 Hacer
inverso <- inverso * 10 + residuo mod 10;
residuo <- (residuo - residuo mod 10) / 10;
FinMientras
Escribir "";
Escribir "Valor del número inverso: ", inverso;
Escribir Sin Saltar "El número ", numero, " ";
Si numero = inverso Entonces
Escribir Sin Saltar "si";
Sino
Escribir Sin Saltar "no";
FinSi
Escribir " es capicua.";
FinAlgoritmo