Question

Срочно составте программу в паскаль. ежегодный прирост рыбы в пруду состовляет x%.Запасы рыбы оценены в А тонн. Ежегодный план отлова В тонн Наименьший запас рыбы ниже которого запас уже не востонавливается состовляет С тонн . Составить алгоритм подсчитовавший сколько лет можно выдерживать заданный план.

Answer 1

PascalABC.NET 3.4.2, сборка 1857 от 05.11.2018

Внимание! Если программа не работает, обновите версию!

begin

 var Прирост := 1 + ReadReal('Введите х в процентах:') / 100;

 var (Запас, Отлов, Порог) := ReadReal3('Введите A, B, C в тоннах:');

 var Лет := 0;

 while Запас >= Порог do

 begin

   Запас := Запас * Прирост - Отлов;

   Inc(Лет);

   if Лет > 1000 then

   begin

     Println('И на тысячу лет хватит!');

     Exit

   end

 end;

 Println(Лет - 1)

end.

Введите х в процентах: 12.5

Введите A, B, C в тоннах: 300 90 75

3