Регистрация
vitay123
30.12.2020 10:36
Информатика
Есть ответ 👍

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

242
418
Посмотреть ответы 2

Ответы на вопрос:

elyakiselya17
elyakiselya17
4,7(54 оценок)
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
Снежана341
Снежана341
4,6(21 оценок)
Программа написана на языке pascal

Популярно: Информатика