Realice un programa en Pascal, donde se le pida ingresar al usuario un número entero de 4 dígitos, luego usted deberá mostrar en pantalla si el número ingresado es capicúa o no lo es. NOTA: Un número capicúa es aquel que se lee de derecha a izquierda o de izquierda a derecha y es exactamente el mismo número .Por ejemplo supongamos que el usuario ingresa 1894 entonces de izquierda a derecha sería 1894 pero de derecha a izquierda 4981 entonces este número no es capicú. Ahora bien si ingresamos 1551 de izquierda a derecha sería 1551 pero de derecha a izquierda 1551 entonces este número si es capicúa. Recuerde que el ingreso del número debe ser en una variable y con un proceso matemático deberá descomponer dicho valor para luego compararlos.
Respuestas
Respuesta:
program CapicuaPascal;
Var
capi, cn, cp, d, d1, inv, n : Integer;
Begin
WriteLn('Dígite un número entero de 4 dígitos:');
ReadLn(n);
cn := n;
inv := n;
capi := 0;
cp := 0;
While cn > 0 Do
Begin
d := cn Mod 10;
cp := cp+1;
cn := Trunc(cn/10);
End;
If cp=4 Then
Begin
While inv>0 Do
Begin
d1 := inv Mod 10;
capi := capi*10+d1;
inv := Trunc(inv/10);
End;
If capi=n Then
Begin
WriteLn('El número ingresado si es capicúa');
ReadLn;
End
Else
Begin
WriteLn('El número ingresado no es capicúa');
ReadLn;
End;
End
Else
Begin
WriteLn('El número no es de 4 dígitos');
ReadLn;
End;
End.
¡¡Espero Te Sirva, Saludos!!