Предмет: Информатика,
автор: SeReNeChKaBaD
В колбе n бактерий.В какой-то момент времени в колбу попадает вирус.В первую минуту он уничтожает одну бактерию,после чего вирус и бактерии делятся в каждую следующую минуту вирусы уничтожают по одной бактерии и снова делятся.Через сколько минут вирусы уничтожат все бактерии? Нужно привести решение в Паскале.Очень срочно!
Ответы
Автор ответа:
0
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.
Похожие вопросы
Предмет: Немецкий язык,
автор: mashunka09
Предмет: Английский язык,
автор: kakoepole
Предмет: Математика,
автор: bogdanz03
Предмет: Литература,
автор: Mariya825