Каждая бактерия делится на 2 в течение одной минуты. В начальный момент имеется одна бактерия. Составить программу, которая рассчитывает кол-во бактерий на заданное Вам целое значение момента времени. pascal abc
Каждая бактерия делится на 2 в течение одной минуты. В начальный момент имеется одна бактерия. Составить программу, которая рассчитывает кол-во бактерий на заданное Вам целое значение момента времени. pascal abc
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
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.