Foro de elhacker.net

::Batchiano :)
@echo off
setlocal enabledelayedexpansion
set /a i=0
set "pares="
set "invertido="
echo. -Analizar Numero-
set /p numero=Numero:
set /a MAYOR=!numero:~0,1!
set /a MENOR=!numero:~0,1!
:proceso
if "!numero:~%i%,1!" NEQ "" (
	set /a value=!numero:~%i%,1!
	set invertido=!value!!invertido!
	set /a mod=!value! %% 2
	if !mod! == 0 (
		set pares=!pares!!value!
	)
	if !value! GTR !MAYOR! (
		set /a MAYOR=!value!
	) else (
		if !value! LSS !MENOR! (
			set /a MENOR=!value!
		)
	)
	set /a i+=1
	goto proceso
)

echo ^>^> Numero:!numero! ^| Invertido:!invertido! ^| Mayor:!MAYOR! ^| Menor:!MENOR! ^| Pares:!pares!
pause&exit/b

@echo off
setlocal enabledelayedexpansion

set/p "num=Cifra >> "

set/a hst=0,lst=9
set "evn_lst=" & set "rev_lst="

for /f "tokens=* eol=" %%_ in (
	'"cmd /u /c echo+%num%|more"'
	) do (
		set "rev_lst=%%_!rev_lst!"
		if %%_ GTR !hst! set/a hst=%%_
		if %%_ LSS !lst! set/a lst=%%_
		set/a pry=%%_ %% 2
		if !pry! EQU 0 set "evn_lst=!evn_lst!%%_"
)
more/c<nul
echo: Cifra: %num% ^| Invertido: %rev_lst% ^| Mayor: %hst% ^| Menor: %lst% ^| Pares: %evn_lst%
pause 1>nul & exit

@ECHO OFF
SetLocal EnableDelayedExpansion
SET /P NUMNAT=¨Numero natural? 
echo %NUMNAT%>NUMNAT.bar
FOR %%A IN (NUMNAT.bar) DO (SET /A LONG=%%~zA - 2)
DEL NUMNAT.bar
SET /A LONGMENOS1=%LONG%-1
SET NUMNATINV= 
FOR /L %%B IN (0,1,%LONGMENOS1%) DO (SET NUMNATINV=!NUMNAT:~%%B,1!!NUMNATINV: =!
SET NUMNATESP=!NUMNATESP!!NUMNAT:~%%B,1! )
FOR %%C IN (%NUMNATESP%) DO (IF .!NUMMAX!.==.. SET NUMMAX=%%C
IF %%C GEQ !NUMMAX! SET NUMMAX=%%C)
FOR %%D IN (%NUMNATESP%) DO (IF .!NUMMIN!.==.. SET NUMMIN=%%D
IF %%D LEQ !NUMMIN! SET NUMMIN=%%D)
FOR %%E IN (%NUMNATESP%) DO (SET /A MOD=%%E %% 2
IF !MOD!==0 SET PARNUMS=!PARNUMS!%%E )
echo Numero          : %NUMNAT%
echo Numero invertido: %NUMNATINV%
echo Numero menor    : %NUMMIN%
echo Numero mayor    : %NUMMAX%
echo Numeros pares   : %PARNUMS%
pause >nul
exit