[代码]百钱买百鸡过程

百钱买百鸡过程

procedure TForm1.Button1Click(Sender: TObject);
var
  hen, cock, chick: integer;
  answer: string;
begin
  for cock:=0 to 20 do
    for hen:=0 to 33 do
    begin
      chick:=100-hen-cock;//鸡雏的数目
      if chick mod 3 = 0 then//鸡雏的数目必须是3的倍数
        if cock*5+hen*3+chick div 3=100 then//总价值是100
          begin
            answer:='鸡翁'+inttostr(cock)+',';
            answer:=answer+'鸡母'+inttostr(hen)+',';
            answer:=answer+'鸡雏'+inttostr(chick)+'。';
            ListBox1.Items.Add(answer);//输出答案
          end;
    end;
end; 
分享到:

0 条评论

注意: 评论者允许使用'@user空格'的方式将自己的评论通知另外评论者。例如, ABC是本文的评论者之一,则使用'@ABC '(不包括单引号)将会自动将您的评论发送给ABC。使用'@all ',将会将评论发送给之前所有其它评论者。请务必注意user必须和评论者名相匹配(大小写一致)。

昵称

沙发空缺中,还不快抢~