编程解决“百钱买百鸡”问题，可以使用多种编程语言和方法。以下是使用不同编程语言实现的一个例子：
方法一：使用C语言
```c
include
int main（） {
int cock, hen, chicken；
for （cock = 0； cock <= 20； cock++） {
for （hen = 0； hen <= 33； hen++） {
chicken = 100 - cock - hen；
if （cock * 5 + hen * 3 + chicken / 3.0 == 100） {
printf（"公鸡： %d 母鸡： %d 小鸡： %d\n", cock, hen, chicken）；
}
}
}
return 0；
}
```
方法二：使用VB
```vb
Private Sub Command1_Click（）
Dim gj As Integer
Do While gj <= 20
Dim mj As Integer
mj = 0
Do While mj <= 33
Dim xj As Integer
xj = 100 - gj - mj
If gj * 5 + mj * 3 + xj / 3 = 100 Then
Print "公鸡： " & gj & " 母鸡： " & mj & " 小鸡： " & （100 - gj - mj）
End If
mj = mj + 1
Loop
gj = gj + 1
Loop
End Sub
```
方法三：使用Delphi
```delphi
program BuyHensChickens；
var
cock, hen, chicken: Integer；
i, j, k, n: Integer；
begin
for i := 1 to 20 do
begin
for j := 1 to 33 do
begin
k := 100 - i - j；
if i * 5 + j * 3 + k * 1 / 3 = 100 then
begin
Inc（n）；
Print（'公鸡： ' + IntToStr（i） + ' 母鸡： ' + IntToStr（j） + ' 小鸡： ' + IntToStr（k））；
end；
end；
end；
ShowMessage（'共有 ' + IntToStr（n） + ' 种买法。'）；
end.
```
解释
C语言版本
使用三层循环遍历所有可能的公鸡、母鸡和小鸡的数量组合。
通过条件判断检查每种组合是否满足总金额为100钱的条件。
如果满足条件，则打印出该组合。
VB版本
使用两个嵌套的`Do While`循环遍历所有可能的公鸡和母鸡的数量组合。
计算小鸡的数量，并检查每种组合是否满足总金额为100钱的条件。
如果满足条件，则打印出该组合。
Delphi版本
使用两个嵌套的`for`循环遍历所有可能的公鸡和母鸡的数量组合。
计算小鸡的数量，并检查每种组合是否满足总金额为100钱的条件。
如果满足条件，则打印出该组合，并统计满足条件的组合总数。
这些方法都可以有效地解决“百钱买百鸡”的问题，选择哪种方法取决于具体的编程环境和需求。