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

НА ПАСКАЛЕ ПЛИЗ! СРОЧНО И ЧТОБЫ ВСЕ РАСПИСЫВАЛОСЬ

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