Через сколько минут в бульоне будет 1000 бактерий? - Pascal ABC

Формулировка задачи:

16. Из воздуха в питательный бульон попала бактерия и начала размножаться. Каждую минуту каждая бактерия рождает ещё одну. Но каждые 5 минут третья часть бактерий погибает. Кроме того, каждые 7 минут в бульон попадает из воздуха ещё одна бактерия. Через сколько минут в бульоне будет 1000 бактерий? Сколько бактерий к тому времени погибнет?

Код к задаче: «Через сколько минут в бульоне будет 1000 бактерий? - Pascal ABC»

textual
Var
  B,i : Integer;
 
Begin
  i:=1; B:=1;
  Repeat
    Writeln(i,' ',B);
    Inc(i);
    If i mod 5 = 0 then B:=B*2-(B div 3) else B:=B*2;
    If i mod 7 = 0 then Inc(B);
  Until B>=1000;;
  Writeln(i,' ',B);
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

14   голосов, оценка 4.000 из 5


СДЕЛАЙТЕ РЕПОСТ
Похожие ответы