UC知道今有鸡翁一值钱五，鸡母一值钱三，鸡雏三值钱一。凡百钱买鸡百只。问：鸡翁母雏各几何？何解！1
来源：百度知道 编辑：UC知道 时间：2024/05/03 20:54:43
Private Sub Command1_Click()
Dim sum As Integer
Dim a, b, c As Integer
List1.Clear
For a = 0 To 20
For b = 0 To 33
c = 100 - a - b
If a * 5 + b * 3 + c / 3 = 100 Then
List1.AddItem (Str(a) + Str(b) + Str(c))
sum = sum + 1
End If
Next b
Next a
Label1.Caption = "个数：" + Str(sum)
End Sub
Dim sum As Integer
Dim a, b, c As Integer
List1.Clear
For a = 0 To 20
For b = 0 To 33
c = 100 - a - b
If a * 5 + b * 3 + c / 3 = 100 Then
List1.AddItem (Str(a) + Str(b) + Str(c))
sum = sum + 1
End If
Next b
Next a
Label1.Caption = "个数：" + Str(sum)
End Sub
我只会C++。意思都差不多。 看看吧。
#include<iostream.h>
int main()
{
int x,y,z;//x为鸡翁的只数，y为鸡母的只数，z为鸡雏的只数。
for(x=0;x<20;x++)
for(y=0;y<33;y++)
for(z=3;z<99;z=z+3)
if(x+y+z==100&&5*x+3*y+z/3==100)
cout<<x<<" "<<y<<" "<<z<<endl;
return 0;
}