Задача

[саша аврамов]

Как долго будут леса Амазонки, если сейчас их площадь 3712,5 гектаров, вырастают 3712,5 гектаров, а вырубается 513,4 гектара.
Решить в Pascal

[MisterDie]

over9000! Вырастает больше, чем вырубают...

[саша аврамов]

это очень классно, но мне нужно РЕШЕНИЕ !

[Stilet]

Решить в Pascal

Вообще то это нужно решать в ООН.
И без временной составляющей задача не решается...

[MisterDie]

Сообщение от саша аврамов

мне нужно РЕШЕНИЕ !

Какое тут может быть решение, если программа вскоре закроется от переполнения!

[саша аврамов]

Нужно что бы на экран вывелось сколько лет будут леса

[MisterDie]

var
  a: real;
  b: longint;

begin
  a := 3712.5;
  while (b < longint.MaxValue) and (a > 0) do 
  begin
    a := a + 3712.5;
    a := a - 513.4;
    inc(b);
  end;
  writeln('Леса Амазонки просуществуют ещё ', b, ' лет');
end.

Ох и долго же эти леса будут жить...

[саша аврамов]

спасибо тебе огромное

[Serge_Bliznykov]

если сейчас их площадь 3712,5 гектаров, вырастают 3712,5 гектаров,

одинаковые числа наводят на подозрение, что в количестве вырастающих лесов допущена явная ошибка (даже по логике, лес за один год не может разрастись в ДВА раза больше).

Более того, при такой постановке задачи задача НЕ ИМЕЕТ решения (о чём и было сказано неоднократно)!

Ну и, наконец, выложено универсальное (можно заменить числа в коде) решение.

поэтому, я считаю, что тема себя исчерпала и я тему ЗАКРЫВАЮ!