Question

Запас рыбы в пруду х тон. Ежегодно прирост рыбы составляет 30%, а вылов рыбы у тон. Через сколько запас рыбы станет z тон или меньше. Решить в паскале.
P.S.: неизвестные данные должны вводиться с клавиатуры.

Answer 1

program p24;
var x,y,z,k,r:real;
begin
write('колитчество рыбы в пруду '); readln(x);
write('сколько ежегодно вылавлеваеться рыбы '); readln(y);
write('z:='); readln(z);
r:=(x*30)/100;
if(y<=r) then write('рыба не закончиться никогда')
else begin
while(x>z) do begin
x:=x-y;
x:=x+((x*30)/100);
k:=k+1;
end;
if(x<0) then x:=0;
writeln('через ',k,' года в пруду останеться ',x,' тон рыбы');
end;
end.