Question

Известно, что некоторые бактерии размножаются каждые три минуты, разделяясь на две. Однако не все бактерии доживают до трехминутного возраста. Каждую минуту четверть всех бактерий погибает. Составить программу, которая печатает число бактерий через n минут, если в начале было k только что родившихся бактерий (n и k - целые числа).Написать в программе Word программу на Паскале.

Answer 1

Ответ:

pascal

Объяснение:

var n, k, i:integer;

begin

 Write('Введите минуты: ');

 ReadLn(n);

 Write('Введите количество бактерий: ');

 ReadLn(k);

 i:=1;

 while i <= n do

 begin

   if (i mod 3 = 0) then k := k * 2;

   k := round(int(k * 0.75));

   i := i + 1;

 end;  

 WriteLn('Через ', n, ' минут будет ', k,' бактерий');

end.