■ Pascal_022 ► Decir si un número es capicúa

Ejercicio 022: Leer un número y decir si es capicúa.

Entrada: Un número entero.

Salida: Decir si es capicúa o no.

Un número es capicúa cuando se puede leer igual de izquierda a derecha que de derecha a izquierda, ejemplo: 123321 o 11511.

Program Pascal_022;

uses

    crt;

var

    numero : string;

    i : integer;

    esCapicua : boolean;

Begin

    clrscr;

    esCapicua := true;

    WriteLn('Ingresa el número');

    ReadLn(numero);

    

    for i:=1 to length(numero) div 2 do

    begin

        if (numero[i] <> numero[length(numero) - (i - 1)]) then

        begin

            esCapicua := false;

        end;

    end;

    

    if esCapicua then

        WriteLn('El número es capicúa')

    else

        WriteLn('El número no es capicúa');

End.