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