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

Question

Информатика

Федюня

16 января, 09:16

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

+4

Ответы (1)

Знаешь ответ?

Линуша · 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.