Каждая бактерия делится на две в течение одной минуты. В начальный момент имеется A бактерий. Сколько времени потребуется, чтобы количество бактерий превзошло X? НА ПАСКАЛЕ, СРОЧНО.
Var bak:intager; readln(bak);\\вбиваем требуемое кол-во минут /*каждую минуту кол-во бактерий увеличивается вдвое, т.к. вначале мы имеем всего 1 бактерию, то просто умножаем кол-во минут на 2 */ bak:=bak*2 writeln(bak) readln; end.