中国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