Каждая бактерия делится на две в течение одной минуты. в начальный момент имеется a бактерий. сколько времени потребуется, чтобы количество бактерий превзошло x? на паскале, .

Var bak: intager; readln(bak); \\вбиваем требуемое кол-во минут /*каждую минуту кол-во бактерий увеличивается вдвое, т.к. вначале мы имеем всего 1 бактерию, то просто умножаем кол-во минут на 2 */bak: =bak*2 writeln(bak) readln; end.