Регистрация
Войти
Стать экспертом Правила
Информатика

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

ОТВЕТЫ

var bakteria, min: integer;

begin

   bakteria := 1;

   min := 1;

   while bakteria < 100 do

   begin

       bakteria := bakteria + 3;

       min := min + 1

   end;

   writeln(min)

end.

816
Контакты
Реклама на сайте
Спрошу
О проекте
Новым пользователям
Новым экспертам