已知三整数a.b.c之和为13,且a/b=b/c.求a的最大值和最小值,并求出此时相应的b与c之值

已知三整数a.b.c之和为13,且a/b=b/c.求a的最大值和最小值,并求出此时相应的b与c之值

delphi 7 通过

procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c:integer;
begin
  for a:=0 to 12 do
    for b:=1 to 11 do
    if (a+b)<=12 then
    begin
    c:=13-a-b;
    if a/b=b/c then showmessage('A:'+inttostr(a)+' B:'+inttostr(b)+' C:'+inttostr(c));
    end;
end;

答案 1,3,9    9,3,1

这么麻烦的极值题。只给5分呀。。

题出的也恶心，考个解题方法就罢了。选什么13呢。一个质数，来回配方多烦。

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息