Найти все целочисленные решения уравнения 3x+4y=2z на заданном отрезке [L,R]

[Zmey_by_Nojabrsk]

Найти все целочисленные решения уравнения 3x+4y=2z на заданном отрезке [L,R] !
Спасибо за внимание!

[rpy3uH]

procedure TForm1.Button1Click(Sender: TObject);
var
  x,y,z,L,R:integer;
begin
  L:=-100;
  R:=100;
  for x:=L to R do
   for y:=L to R do
    for z:=L to R do
     if x*3+4*y=2*z then
      ListBox1.Items.Add(IntToStr(x)+'  '+IntToStr(y)+'  '+IntToStr(z));
end;

после чего в листбоксе все решения на промежутке от L до R

[Zmey_by_Nojabrsk]

Спасибо, ошибки ясны)))

[sher_man]

Грузин: а вы бы не могли помочь, мне тут такая задачка муторная попалась, сижу ломаю голову 3 день...Дано натуральное число (n). Заменить в нем любую цифру таким образом, что бы полученное число было как можно ближе к какому нибуть числу фибоначи.