公元钱五世纪,我国古代数学家张丘建在《算经》一书中提出了“百鸡问题”:鸡翁一值钱五,鸡母一值钱三,鸡雏三值钱一。百钱买百鸡,问鸡翁、鸡母、鸡雏各几何?
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;