kingerpk

@echo off

setlocal EnableDelayedExpansion

for /l %%a in (1,1,10000) do (

set /a a=%%a/10000
::万
set /a b=%%a/1000-!a!*10
::千
set /a c=%%a/100-!a!*100-!b!*10
::百
set /a e=%%a/10-!a!*1000-!b!*100-!c!*10
::十
set /a d=%%a%%10
::个
set /a k=!a!*!a!*!a!+!b!*!b!*!b!+!c!*!c!*!c!+!d!*!d!*!d!+!e!*!e!*!e!

if !k! == %%a echo %%a 
)

pause
复制代码

好长啊~~~~惭愧~~~
望大家指点！！