Каждая бактерия делится на две в течение одной минуты. В начальный момент имеется A бактерий. Сколько времени потребуется, чтобы количество бактерий превзошло X?
НА ПАСКАЛЕ ПЛИЗ!
Var
i,x,a:integer;
begin
writeln(Кол-во бактерий);
readln(a);
writeln(Необходимое кол-во);
readln(x);
i:=0;
while a
a:=a*a;
i:=i+1;
end;
writeln(Требуется ,i, минут);
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
