inittab

程序3:

@echo off&setlocal enabledelayedexpansion
echo 问题:排一本辞典的页码共用了4889个数字。这本辞典共有多少页？
set num=0
for /l %%i in (1,1,5000) do (
if %%i lss 10 (set/a num=!num!+1) else if %%i lss 100 (set/a num=!num!+2) else if %%i lss 1000 (set/a num=!num!+3) else if %%i lss 10000 (set/a num=!num!+4)
if !num! equ 4889 (echo.答案:%%i页&pause>nul&goto :eof)
)
复制代码

sjzong

程序19：计算2*3*……*100的积后面有几个零。
程序分析：本道题是程序11的引申题，要计算乘积有几个零，只需计算5的倍数能提供5的个数就知道了。

 
@echo off&setlocal EnableDelayedExpansion
echo 计算2*3*……*100的积后面有几个零:
set/a num=5,count=0
:a
if !num! gtr 100 goto :end
set/a shang=!num!
:b
set/a yushu=!shang! %% 5
if !yushu!==0 (
  set/a count+=1
  set/a shang/=5
  goto :b
) else (set/a num+=5 & goto :a)
:end
echo 2*3*……*100的积后面有 !count! 个0。
pause
复制代码

[ 本帖最后由 sjzong 于 2009-4-17 13:38 编辑 ]

sjzong

程序11：将自然数2、3......乘到一起，它们的积的最后6位数恰好都是0，最后一个自然数最少可能是几？
程序分析：要使积的最后一位是0，就必须有一个5参与，那5是由谁提供的呢？是5的倍数提供的。
                  它们依次是：5，10，15，20，25……
                  例如：5=1×5  提供1个5 ；10=2×5 提供1个5 ； 25=5×5 提供2个5 ；125=5×5×5 提供3个5……
                  所以最后6位都是0，就必须提供6个5参与乘积，就是从5的倍数中找到分解出6个5来。

@echo off&setlocal EnableDelayedExpansion
set/a num=5,count=0,cishu=6
:a
set /a shang=!num!
:b
::b这步循环是判断5的倍数能提供几个5
set /a yushu=!shang! %% 5
::余数为0，表示含有1个5，count+1，接着再判断该数除以5后的商，还能不能提供5。
if !yushu!==0 (
set/a count+=1
set/a shang/=5
goto :b
) else (
rem 余数不为0，表示5的个数已经求完了，判断达到6个没有，没有再求下一个5的倍数含有5的个数。
if not !count!==!cishu!  (set /a num+=5 & goto :a)
)
echo 将自然数2、3......乘到一起，它们的积的最后6位数恰好都是0，最后一个自然数最少可能是!num!。
pause
复制代码

sjzong

zhouyongjun的这两句用来判断数字（0~9）有没有全部用到，实在是妙！

for /f "delims=%1" %%i in ("0123456789") do set num4=%%i
if not defined num4 echo !num1!

今天长见识了，我以前的做法分别求出这四位数和六位数，然后组成十位数，最后分别判断每一个数字是否有出现重复的！

zhouyongjun

第二题

@echo off&setlocal enabledelayedexpansion
for /l %%a in (10,1,100) do (
set num1=%%a
set/a num2=!num1!*!num1!*!num1!
if !num2! geq 1000 if !num2! leq 9999 (
set/a num3=!num2!*!num1!
if !num3! geq 100000 if !num3! leq 999999 (
call :pd !num2!!num3!
)))
pause&exit
:pd
for /f "delims=%1" %%i in ("0123456789") do set num4=%%i
if not defined num4 echo !num1!
goto :eof
复制代码

tyc

::先四个数之和，然后求各个数
@echo off
set /a all=(84+88+99+110)/3
set /a a=all-110
set /a b=all-99
set /a c=all-88
set /a d=all-84
echo %a% %b% %c% %d%
pause>nul            
复制代码

5810239q

好像都不会，有难度

Batcher

初学批处理，建议从“实用”二字入手。
类似这些华而不实的东西，可以留待以后具备一定批处理功底时，再偶尔回来小试身手。