keiamy

程序6:參考了youxi01的

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

keiamy

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

原來規律是1+2+...5=15, 2+3...+6=20,簡單複雜化了.......

keiamy

程序7:

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

keiamy

程序10：

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