т.к. вариантов нет, то Х может принимать значения от 4 до бесконечности
Var b, v, t:integer;begin write('Skolko bilo bakteriy?'); readln(b); v := 1; t := 0; while b > 0 do begin b := b - v; b := b * 2; v := v * 2; t := t + 1; end; writeln(t);<span>end.</span>
Нажмите клавишу Ctrl<span> на клавиатуре и удерживайте ее нажатой</span>
Думаю алгоритм будет таким: