//Pascal ABC.NET Версия 2.2 Сборка 790
var x,i,s:integer;
begin;
readln(x); //вводим x
s:=1; //показатель кол-ва бактерий, 1 чтобы можно было нормально *
while x>s do //пока введённое число больше кол-ва бактерий
begin; //т.к. несколько действий в теле цикла
s:=s*2; //при каждом шаге цикла число бактерий умножается на 2
i:=i+1; //счётчик минут
end; //конец тела цикла
writeln(i); //выводим счётчик
end.
Пример ввода:
3
Пример вывода:
2