Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

Ежегодный прирост рыб в пруду составляет 15%. Запасы рыбы оценены в А тонн. Ежегодный план отлова В тонн. Подсчитать , сколько лет можно выдерживать заданный план ?
НА ПАСКАЛЕ! ПОЖАЛУЙСТА!

Ответ оставил Гость

Var
a,b:real;
i:integer;
begin
i:=0;
readln(a,b);
while bbegin
a:=a*1.15;
a:=a-b;
i:=i+1;
end;
writeln(План можно выдерживать, i, лет );
end.