delphi求算法

Question

var x,y,z:integer;begin
  memo1.Lines.clear;
  memo1.Lines.Add('Start:');
  for X:=1 to 2009 do
    for Y:=1 to 2009 do
      for Z:=1 to 2009 do
      begin
        if (X+Y+Z=2092) and (0.2*X+0.5*Y+Z=441.2) then
        memo1.Lines.Add(IntTostr(X)+' '+IntTostr(Y)+' '+IntTostr(Z));
      end;
  memo1.Lines.Add('End');
end;代码如上，无解。
start:
End

Answer 1

2x + 5y + 10z = 4412;
10*(x+y+z) = 20920;
得出X和Y的关系
8x + 5Y = 16508;
令X = 1时，你的穷举最大值不可能超过16500，穷举出了X、Y值你的Z值就好解决了。

Answer 2

2x+5y+10z=4412
2x+2y+2z=4184
3y+8z=228