Каждая бактерия делится на две в течение одной минуты. в начальный момент имеется a бактерий. сколько времени потребуется, чтобы количество бактерий превзошло x? на паскале !

Var
i,x,a:integer;
begin
writeln('Кол-во бактерий');
readln(a);
writeln('Необходимое кол-во');
readln(x);
i:=0;
while a<x do
begin
a:=a*a;
i:=i+1;
end;
writeln('Требуется ',i,' минут');
end.

Режим инкогнито, приватный просмотр — режим браузеров, временно дающий «новое» устройство без истории сёрфинга. Иногда дополнительно усиливается защита информации: например, начинает агрессивнее работать блокировщик трекеров.

Может применяться:

1)для сёрфинга по порно, медицинским и прочим законным, но компрометирующим сайтам, покупки подарков втайне от домочадцев

2)для сёрфинга на чужом устройстве

3)для временного частичного снятия пузыря фильтров

4)для ухода от оплаты на некоторых новостных сайтах

5)для отладки сайтов

6)для трансляции экрана

ответ:

P AM

SP AM

SP AM

SP AM

SP AM

SP AM

SP AM

SP AM

SP AM

SP AM

SP AM

SP AM

SP AM

SP AM

SP AM

SP AM

SP AM

SP AM

SP AM

SPAM

SAM

AM

AMP

AMSP

AM SP

AM SP

AM SP

AM SP

AM SP

AM SP

AM SP

AM SP

AM SP

AM SP

AM SP

AM SP

AM SP

AM SP

AM SP

AM SP

AM SP

AM SP

AM SP

AMSP

ASP

SP

SPM

SPAM

SP AM

SP AM

SP AM

SP AM

SP AM

SP AM

SP AM

SP AM

SP AM

SP AM

SP AM

SP AM

SP AM

SP AM

SP AM

SP AM

SP AM

SP AM

SP AM

SPAM

SAM

AM

AMP

AMSP

AM SP

AM SP

AM SP

AM SP

AM SP

AM SP

AM SP

AM SP

AM SP

AM SP

AM SP

AM SP

AM SP

AM SP

AM SP

AM SP

AM SP

AM SP

AM SP

AMSP

ASP

SP

SPM

SPAM

SPAM

SPAM

SPAM

SPAM

SPAM

SPAM

SPAM

SPAM

SPAM

SPAM

SPAM

SPAM

SPAM

SPAM

SPAM

SPAM

SPAM

SPAM

SPAM

SPAM

SPAM

SPAM

SPAM

SPAM

SPAM

SPAM

SPAM

SPAM

SPAM

SPAM

SPAM

SPAM

SPAM

SPAM

SPAM

SPAM

SPAM

SPAM

SPAM

SPAM

SPAM

SPAM

SPAM

SPAM

Must Waste More Time...