::先四个数之和，然后求各个数
@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            
复制代码

@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
复制代码

@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
复制代码

 
@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
复制代码

@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)
)
复制代码

@echo off&setlocal enabledelayedexpansion
echo\阿聪说他这次去西北看见一群骆驼，共有23个驼峰，60只脚。请问单、双峰骆驼各多少只?
set/a num=60/4
for /l %%i in (1,1,!num!) do (
set/a m=%%i,n=15-m
set/a tf=m+2*n
if !tf! equ 23 (echo\答:单、双峰骆驼各!m!,!n!只&pause&goto :eof)
)
复制代码

 
@echo off&setlocal enabledelayedexpansion
echo\有一个五位奇数，将这个五位奇数中的所有2都换成5，所有5也都换成2，其他数保持不变，
echo\得到一个新的五位数，若新五位数的一半仍比原五位数大1，那么原五位数是多少？
for /l %%i in (20005,10,29995) do (
set num=%%i
set var=!num:2=a!&set var=!var:5=2!&set var=!var:a=5!
set/a var0=var/2-1
if !var0! equ !num! (echo 答案是: !num!&pause&goto :eof)
)
复制代码

@echo off&setlocal enabledelayedexpansion
cls
echo.
echo\   问题:商店里有六箱货物，分别重15、16、18、19、20、31千克，
echo\两个顾客买走了其中五箱．已知一个顾客买的货物重量是另一个顾客的2倍，
echo\那么，商店剩下的一箱货物重量是多少千克?
echo\=====================================================================================
set str0=15 16 18 19 20 31
set/a total=15+16+18+19+20+31
for %%i in (!str0!) do (
set/a var1=%%i,md=total-var1,avr=md/3,ys=md%%3
if !ys! equ 0 (
set "str1=!str0:%%i =!"
for %%j in (!str1!) do (
set/a var2=%%j,var3=avr-%%j
set "str2=!str1:%%j =!"
for %%l in (!str2!) do (
if !var3! equ %%l (
set var4=!str2:%%l =!
echo 答案:商店剩下的一箱货物重量是:!var1!
echo 一客人买走了!var2! !var3!两箱的货物,另一客人分别买走了!var4!货物
pause>nul&goto:eof
)))))
复制代码

@echo off
setlocal enabledelayedexpansion
for /l %%i in (1 1 1000) do (
set /a n1="(%%i -75)*20"
set /a n2="(%%i+100)*15"
if !n1!==!n2! echo %%i
)
复制代码

@ echo off
title=有四个数,其中任意三个数相加,求这四个数
set /a num=(84+88+99+110)/3
set /a num1=%num%-84
set /a num2=%num%-88
set /a num3=%num%-99
set /a num4=%num%-110
echo,第一个数%num1%
echo,第二个数%num2%
echo,第三个数%num3%
echo,第四个数%num4%
pause
复制代码

@echo off
set s=1
set t=9
set p=9
set /p page=请输入辞典的页码：
set count=1

:start
if %p% geq %page% goto calc
set /a count+=1
set /a p*=10
set /a t+=p*count
goto start
:calc

set /a t-=p*count
set /a t=(page-t)/count
set /a count-=1
for /l %%i in (1,1,%count%) do set /a s*=10
set /a s+=t-1
set /p=这本辞典共有%s%页。
复制代码

@echo off&setlocal enabledelayedexpansion
for /l %%i in (1 1 1000) do (
 set "flag=0"&set "a=!b!"
 set "b=!c!"&set "c=!d!"
 set "d=!e!"&set "e=%%i"
  if "!a!" geq "1" (
   set /a "num=a+b+c+d+e"
    for %%j in (4 5 6) do (
     set /a "n=!num!%%%%j"
     if !n! neq 0 set "flag=1")
     if !flag!==0 echo !a! !b! !c! !d! !e!&pause&exit))
复制代码

@echo off&setlocal enabledelayedexpansion
for /l %%i in (1 1 1000) do (
 set /a "flag=0,num+=%%i"
 if %%i gtr 4 (
  set /a "n=%%i-5"
   for %%j in (!n!) do set /a "m+=%%j"
    set /a "num1=num-m"
     for %%k in (4 5 6) do (
      set /a "x=num1%%%%k"
      if !x! neq 0 set "flag=1")
      if !flag!==0 set "num2=%%i"&goto end))
:end
set /a "num3=num2-4"
for /l %%i in (%num3% 1 %num2%) do set /p=%%i <nul
pause>nul
复制代码

@echo off&setlocal enabledelayedexpansion
for /l %%i in (0 1 9) do (
  set /a "num=3%%i4/2-39"
 if !num!==1%%i3 echo 1%%i3)
pause
复制代码

@echo off
set "num=17"
set /a "x=1,n=num/3,m=num%%3"
for /l %%i in (1 1 %n%) do (set /a x*=3)
if %m%==2 set /a "x*=2"
if %m%==1 set /a "x=x*4/3"
echo %x%
pause
复制代码

@echo off&setlocal enabledelayedexpansion
set /a shuliang=60/4
for /l %%i in (1 1 15) do (
	for /l %%j in (14 -1 0) do (
		set /a num=%%i+2*%%j,zhi=%%i+%%j
		if "!num!" == "23" (
			if "!zhi!"== "%shuliang%" (
				echo 单峰驼%%i只，双峰驼%%j只。
			)
		)
	)
)
pause>nul
exit
复制代码

@echo off
setlocal enabledelayedexpansion
set x=75
:start 
set /a x+=1
set /a var0="(!x!-75)*20"
set /a var1="(!x!+100)*15"
if !var0!==!var1! (echo !x!) else (goto start)
pause
复制代码

@echo off
setlocal enabledelayedexpansion
for /l %%i in (75,1,1000) do (
set x=%%i
set /a x+=1
set /a var0="(!x!-75)*20"
set /a var1="(!x!+100)*15"
if !var0!==!var1! echo !x!
)
pause
复制代码

@echo off
set a=1
set b=1
:start
set /a a+=1
set /a b=b*a
set /a c=%b%%%1000000 

if %c%==0 (echo %a%) else (goto start)
pause
复制代码

@echo off&setlocal enabledelayedexpansion
for /l %%i in (1,1,10000) do (
set a=%%i
set /a b=!a!%%3
set /a c=!a!%%5
set /a d=!a!%%15
if !b!==2 if !c!==1 (echo !d!&goto end)
)
:end
pause
复制代码

@echo off 
goto :START
程序2：赵姑娘的岁数有以下特点:
1. 它的3次方是一个四位数,而4次方是一个六位数;   2. 这四位数和六位数正好是0到9这十个数字组成.    
问,这个数应该是什么数?
:START
::根据题意(平方是4位数)，确定求值范围。
for /l %%i in (10,1,21) do (
    setlocal EnableDelayedExpansion
    set /a sum1=0
    set /a sum2=1
    set /a num1=%%i*%%i*%%i
    set /a num2=!num1!*%%i
    set n0=!num1:~0,1!
    set n1=!num1:~1,1!
    set n2=!num1:~2,1!
    set n3=!num1:~3,1!  
    set n4=!num2:~0,1!
    set n5=!num2:~1,1!
    set n6=!num2:~2,1!
    set n7=!num2:~3,1!
    set n8=!num2:~4,1! 
    set n9=!num2:~5,1! 
    for /l %%j in (0,1,9) do (
        if not "!n%%j!"==" " set /a sum1+=!n%%j!
    )
    for /l %%j in (0,1,9) do (
        if not "!n%%j!"==" " (if !n%%j! neq 0 (set /a sum2*=!n%%j!))
    )
    if !sum1! equ 45 (if !sum2! equ 362880 (
        echo 赵姑娘的岁数是%%i
        echo 2次方: !num1!
        echo 3次方: !num2!
    )) 
endlocal
)
pause>nul
复制代码