[Batch] Pedir numero y sumar digitos

[leogtz]

Pedir un numero al usuario y sumar sus digitos :

Código [Seleccionar] Expandir

Numero : 36574
Digitos : 5
Suma de todos los digitos : 25
Press any key...

Código (dos) [Seleccionar] Expandir


@echo off
setlocal enabledelayedexpansion
:code
:: Creacion de variables :
set /p "numero=Numero : "      // Esta variable ira disminuyendo
if not defined numero (goto:code)
set /a "contador=0"
set "numero2=%numero%"
set /a suma=0
:bucle
if not defined numero (goto:end)
set "numero=%numero:~1%"
set /a "contador+=1"
goto:bucle
:end
echo.Digitos : %contador%
set /a contador-=1
for /l %%_ in (0 1 %contador%) do (
set /a suma+=!numero2:~%%_,1!
)
echo Suma de todos los digitos : %suma%
goto:eof