返回列表 发帖
ann

Rank: 1

帖子
18 
积分
30 
技术
0  
捐助
0  
注册时间
2014-11-8 
1楼 跳转到 »
发表于 2014-12-13 21:02 | 显示全部帖子
也发一个吧，没考虑太多
@echo off&setlocal enabledelayedexpansion
set /p sr=请输入数字：
for /l %%a in (0 1 1000) do (set sw=!sr:~%%a,1!&if not "!sw!"=="0" (call :qc %%a))
:qc
set aa=%1
goto ii
:ii
set sc=!sr:~%aa%!
echo %sc%
goto end
:end
pause>nul&exitCOPY

TOP

返回列表