Информатика 8 класс паскаль даю 30 баллов​

Question

Информатика 8 класс паскаль даю 30 баллов​

---

Comments

скинь данные которые будут вводится и какой ответ должен быть

---

не знаю если честно, зажали просто решить через паскаль эту задачу

---

у тебя ниже там видно цифры может быть и есть то что я спршивал

---

там другая задача, которую тоже надо решить, сейчас тоже поставлю

Answer 1

Ответ:

Program qq;

var a,b,c: real;

var i:integer;

begin

 writeln('Введите запас рыбы, план отлова, наименьший запас рыбы ');

readln(a,b,c);

while(a > c) do

 begin

   a:= a * 1.15;

   a:= a - b;

   inc(i);

 end;

 write('План выдержал ',i, ' лет');

end.