delphi:搬砖问题

来源：百度知道 编辑：UC知道 时间：2024/07/08 12:02:04
36块砖，36个人，男的搬4块，女的搬3块，2个小儿抬1块，要求1次
抬完，问男女小儿各多少人?
用delphi写.谢谢

procedure TForm1.Button1Click(Sender: TObject);
var
Man, Woman, Kid : Integer;
begin
Memo1.Clear;
for man := 0 to 36 do
for woman := 0 to 36 do
for kid := 0 to 18 do
if (man*4+woman*3+kid=36) and (man+woman+kid*2=36) then
Memo1.Lines.Add(format('男人%d个，女人%d个，小孩子%d个',[man,woman,kid*2]));

end;

procedure TForm1.Button1Click(Sender: TObject);
var
i,j,k:Integer;
begin
for i:=0 to 36 do
begin
for j:=0 to 36-i do
begin
k:=36-i-j;

if (k mod 2 = 0) and (4*i+3*j+k div 2 =36) then
begin
Edit1.Text:='男人'+inttostr(i)+',女人'+inttostr(j)+',小孩'+inttostr(k);
end;
end;
end;
end;

男人3,女人3,小孩30

3*4=12
3*3=9
30 / 2=15

12+9+15=36