Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menú@Echo off
setlocal enabledelayedexpansion
title Ejercicio 9. Numeros Capicua
set numero=""
:comienzo
echo.
echo ===========================================
echo Numero Capicua o no....
echo ===========================================
echo.
Set /P numero="Introduce un numero de 5 cifras "
if %numero%=="" (
goto error
) else (
goto variables
)
:variables
set num1=%numero:~0,1%
set num2=%numero:~1,1%
set num3=%numero:~2,1%
set num4=%numero:~3,1%
set num5=%numero:~4,1%
goto longitud
:longitud
if !num5! gtr -1 (
goto compara4
)
if !num4! gtr -1 (
goto compara3
)
if !num3! gtr -1 (
goto compara2
)
if !num2! gtr -1 (
goto compara1
)
if !num1! gtr -1 (
goto compara
)
:compara
echo.
echo El numero introducido es Capicua.
goto fin
:compara1
if !num1! equ !num2! (
echo El numero introducido es Capicua.
goto fin
) else (
echo El numero introducido no es Capicua.
goto fin
)
:compara2
if !num1! equ !num3! (
echo El numero introducido es Capicua.
goto fin
) else (
echo El numero introducido no es Capicua.
goto fin
)
:compara3
if !num1! equ !num4! (
if !num2! equ !num3! (
echo El numero introducido es Capicua.
goto fin
)
) else (
echo El numero introducido no es Capicua.
goto fin
)
:compara4
if !num1! equ !num5! (
if !num2! equ !num4! (
echo El numero introducido es Capicua.
goto fin
)
) else (
echo El numero introducido no es Capicua.
goto fin
)
:error
echo.
echo ERROR! .No ha introducido ningun numero.
pause
goto comienzo
:fin
echo.
pause
exit