Algoritmo para verificar un número capicúa en PSeInt (Guía 2026)

Un número capicúa se lee igual al derecho y al revés, como 1221 o 787. Para detectarlo se invierte el número dígito por dígito y se compara con el original guardado. Si coinciden, es capicúa.

Código completo

Algoritmo NumeroCapicua
    Definir num, original, invertido, digito Como Entero
    invertido <- 0
    Escribir "Ingresa un número:"
    Leer num
    original <- num
    Mientras num > 0 Hacer
        digito <- num MOD 10
        invertido <- invertido * 10 + digito
        num <- trunc(num / 10)
    FinMientras
    Si invertido = original Entonces
        Escribir original, " es capicúa."
    SiNo
        Escribir original, " no es capicúa."
    FinSi
FinAlgoritmo

Explicación paso a paso

1. Se lee el número y se guarda una copia en la variable original.
2. Con un ciclo Mientras se invierte el número dígito por dígito (MOD 10 y trunc).
3. Al terminar, invertido contiene el número al revés.
4. Se compara invertido con original usando un Si.
5. Si son iguales se informa que es capicúa; si no, que no lo es.

Errores comunes

• No guardar el original: el ciclo destruye num, por eso se necesita la copia en original antes de invertir.
• Comparar num con invertido: al salir del ciclo num vale 0; la comparación correcta es con original.
• Olvidar el trunc: sin trunc(num / 10) el número nunca se reduce y el ciclo no termina.