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