中国DOS联盟

@echo off
setlocal enabledelayedexpansion
::::::::::::::::::::::::::::     水仙花数     ::::::::::::::::::::::::::::
::::::::::::::::::::::::::::{s11ss  2007-9-24}::::::::::::::::::::::::::::
echo 问题：
echo 在100-999这些三位数中，有些数本身等于它百位上数字的立方加上十位上数字的立方加上个位上数字的立方，这样的三位数叫水仙花数。
echo.
echo 计算中...
set str=
for /l %%i in (100,1,999) do (
        set/a nb=%%i/100
        set/a t1=%%i%%100
        set/a nsh=!t1!/10
        set/a ng=!t1!%%10
        set/a n1=!nb!*!nb!*!nb!
        set/a n2=!nsh!*!nsh!*!nsh!
        set/a n3=!ng!*!ng!*!ng!
        set/a n=!n1!+!n2!+!n3!
        if !n! equ %%i set str=!str! %%i
)
echo.
echo 这些数是:
echo !str!
echo 按任意键退出...
pause>nul