Palabra palíndrome

Lenguaje

PSeInt (Pseudocódigo)
Descripción

Pide una palabra y determina si es palíndrome

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

Algoritmo ProcesoPalabraPalindrome

    i <- 1;

    Escribir Sin Saltar "Ingrese una palabra:";

    Leer palabra;

    j <- Longitud(palabra);

    Mientras i < j Y Minusculas(Subcadena(palabra, i, i)) = Minusculas(Subcadena(palabra, j, j)) Hacer

        i <- i + 1;

        j <- j - 1;

    FinMientras

    Escribir "";

    Escribir Sin Saltar "La palabra (", palabra, ") ";

    Si i >= j Entonces

        Escribir Sin Saltar "si";

    Sino

        Escribir Sin Saltar "no";

    FinSi

    Escribir " es palíndrome.";

FinAlgoritmo