[原创]*****水仙花数***** - DOS批处理 & 脚本技术（批处理室） - 中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

@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