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

program bakter;var t: integer; i: integer; k: integer;begin write(\'Время, мин.=\'); readln(t); k:= 1; for i:= 1 to t do begin k:= k * 2; end; writeln(\'Количество бактерий =\', k); end.Объяснение.В переменную \"t\" записывается время в минутах.В переменной \"k\" хранится количество бактерий, и изначально переменной \"k\" присваивается значение \"1\".Далее, в цикле от \"1\" до заданного времени \"t\", количество бактерий удваивается за прошедшую каждую минуту.Результат из переменной \"k\" выводится на экран.