Question

В самом начале эксперимента у вас есть одна бактерия. Она делится каждую минуту таким образом, что из одной получается 3. Через сколько минут у вас будет более 100 бактерий? Нужно сделать в паскале.

Answer 1

Ответ:

var bakteria, min: integer;

begin

   bakteria := 1;

   min := 1;

   while bakteria < 100 do

   begin

       bakteria := bakteria + 3;

       min := min + 1

   end;

   writeln(min)

end.

Объяснение: