Каждая бактерия делится на 2 в течение одной минуты. В начальный момент имеется одна бактерия. Составить программу, которая рассчитывает кол-во бактерий на заданное Вам целое значение момента времени. pascal abc

Предыдущий
вопрос Следующий
вопрос

program BacteriaDivision;

var
time, bacteria, i: integer;

begin
write('Введите количество минут: ');
readln(time);

bacteria := 1;
for i := 1 to time do
begin
bacteria := bacteria * 2;
end;

writeln('Количество бактерий через ', time, ' минут(ы): ', bacteria);
end.