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