Question

Каждая бактерия делится на две в течение одной минуты. В начальный момент имеется A бактерий. Сколько времени потребуется, чтобы количество бактерий превзошло X? НА ПАСКАЛЕ ПЛИЗ! СРОЧНО И ЧТОБЫ ВСЕ РАСПИСЫВАЛОСЬ

Answer 1

//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