irresolute

@echo off
setlocal enabledelayedexpansion
for /l %%i in (1,1,10000) do (
set /a a=%%i/10000
set /a b=%%i-!a!*10000,b=b/1000
set /a c=%%i-!a!*10000-!b!*1000,c=c/100
set /a d=%%i-!a!*10000-!b!*1000-!c!*100,d=d/10
set /a e=%%i%%10
set /a aa=a*a*a+b*b*b+c*c*c+d*d*d+e*e*e
if %%i==!aa! echo %%i是水仙花数
)
pause>nul
复制代码

irresolute

@echo off
setlocal enabledelayedexpansion
for /l %%i in (10000,-1,1) do (
set k=%%i
set a=!k:~0,1!
set b=!k:~1,1!
set c=!k:~2,1!
set d=!k:~3,1!
set e=!k:~4,1!
set /a aa=a*a*a+b*b*b+c*c*c+d*d*d+e*e*e
if %%i==!aa! echo %%i是水仙花数
)
pause>nul
复制代码