[数值计算] 批处理怎样计算出100元买100只鸡(有难度哦)？

'//VBS百元买百鸡 @CODE BY Broly
'//声明：此VBS由Broly制作,代码仅作学习研究之用。使用前请三思而行，产生不良后果均与本人无关！
Const SUM=100
Dim i,j,k,res,str
For i=0 To SUM/5
  For j=0 To Int(SUM/3)
    For k=0 To SUM*3
      res=i*5+j*3+k/3  '小鸡一元3只
      If res=100 And i+j+k=100 Then
        str=str & "公鸡：" & i & Space(3) & _
             "母鸡：" & j & Space(3) & _
             "小鸡：" & k & vbCrLf
      End If
    Next
  Next
Next
WScript.Echo "方案：" & vbCrLf & str 
复制代码

@echo off
for /l %%a in (0,1,20) do (
        for /l %%b in (0,1,33) do (
                set /a c=100-%%a-%%b
                call :A  %%a %%b %%c%%
        ) 
)
goto :eof
:A
set/a sum=%1*5+%2*3+%3/3
set/a a=%3%%3
if %sum% equ 100 if %a% equ 0 (
        echo 公鸡:%1
        echo 母鸡:%2
        echo 小鸡:%3
        echo.
        pause>nul
)
goto :eof
复制代码

@echo off
setlocal enabledelayedexpansion
for /l %%i in (0 1 25) do (
  for /l %%j in (0 1 34) do (
    for /l %%k in (0 1 300) do (
      set/a y=%%k%%3
      if !y! equ 0 (
        set/a sum1=%%i*5+%%j*3+%%k/3
        set/a sum2=%%i+%%j+%%k
        if !sum1! equ 100 (
           if !sum2! equ 100 (
             echo 公鸡：%%i   母鸡：%%j   小鸡：%%k
         )
      )
      )
    )
  )
)
pause
复制代码