Ежегодный прирост рыб в пруду составляет 15%. запасы рыбы оценены в а тонн. ежегодный план отлова в тонн. подсчитать , сколько лет можно выдерживать заданный план ? на паскале! !

Tet4ip06y Tet4ip06y    1   08.07.2019 20:00    7

Ответы
Vita77777 Vita77777  25.08.2020 01:48
Var
a,b:real;
i:integer;
begin
i:=0;
readln(a,b);
while b<a do
begin
a:=a*1.15;
a:=a-b;
i:=i+1;
end;
writeln('План можно выдерживать', i, ' лет' );
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика