百钱买百鸡问题

 公元钱五世纪，我国古代数学家张丘建在《算经》一书中提出了“百鸡问题”：鸡翁一值钱五，鸡母一值钱三，鸡雏三值钱一。百钱买百鸡，问鸡翁、鸡母、鸡雏各几何？

procedure TForm1.Button1Click(Sender: TObject);var  x,y,z : integer; //x 鸡翁个数；y鸡母个数；z鸡皱个数begin  x := 0;  while x<=19 do  begin     y := 0;     while y<=33 do     begin         z := 100-x-y;         if (5*x+3*y+(z div 3)=100)and(z mod 3=0) then         begin           Label1.Caption := ''+inttostr(x);           Label2.Caption := ''+inttostr(y);           Label3.Caption := ''+inttostr(z);         end;         inc(y);     end;    // while     inc(x);  end;    // while

end;