В колбе n бактерий.В какой-то момент времени в колбу попадает вирус.В первую минуту он уничтожает одну бактерию,после чего вирус и бактерии делятся в каждую следующую минуту вирусы уничтожают по одной бактерии и снова делятся.Ч...
В колбе n бактерий.В какой-то момент времени в колбу попадает вирус.В первую минуту он уничтожает одну бактерию,после чего вирус и бактерии делятся в каждую следующую минуту вирусы уничтожают по одной бактерии и снова делятся.Через сколько минут вирусы уничтожат все бактерии? Нужно привести решение в Паскале.Очень срочно!
Гость
Ответ(ы) на вопрос:
Гость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);end.
Не нашли ответ?
Похожие вопросы