谢谢诸位，帮忙设计一个程序！

来源：百度知道 编辑：UC知道 时间：2024/06/09 00:21:58
100文钱买100只鸡，公鸡3文钱1只，母鸡2文钱1只，小鸡1文钱3只，问公鸡，母鸡，小鸡各几只？
用PASCAL语句，谢谢

procedure TForm1.Button1Click(Sender: TObject);
var
i,j,k:integer;
begin
for i:=1 to 33 do
for j:=1 to 50 do
for k:=1 to 100 do
if (3*i)+(2*j)+(1/3*k)=100 then
memo1.Lines.Add('公鸡有:'+inttostr(i)+'只!母鸡有:'+inttostr(j)+'只！小鸡有:'+inttostr(k)+'只！');

end;

当钱还用“文”计算的时候，貌似不需要程序....

这个就是百钱买百鸡的问题，你要会么代码的，是C的还是VB的，发用系统消息通知我