Запас рыбы в пруду х тон. Ежегодно прирост рыбы составляет 30%, а вылов рыбы у тон. Через сколько запас рыбы станет z тон или меньше. Решить в паскале.
P.S.: неизвестные данные должны вводиться с клавиатуры.
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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
