Question

Паскаль авс в искусственный водоем запустили 100 000 рыб. ежегодно из водоема забирают 12% рыб. естественный прирост сост. 20%. какое количество рыб будет в водоеме через 8 лет? через сколько лет в водоеме будет 300 000 рыб, если начиная с пятого года из водоема стали ежегодно забирать ещё 5000 рыб?

Answer 1

Держи)
program zad1;
var
i:integer;
a:real;
begin
a:=100000;
for i:=1 to 40 do
begin
if i<5 then
begin
a:=a*1.2;
a:=a*0.88;
writeln(i,' год ',a:0:0);
end
else
begin
a:=a*1.2;
a:=a*0.88;
a:=a-5000;
writeln(i,' год ',a:0:0);
end;
end;
end.