Программа c repeat

program bacteria_1;

var bac,min:integer;

begin

bac:=1;

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

readln(min);

repeat

 bac:= bac*2;

 min:= min-1

until min=0;

writeln('Стало ',bac,' бакт.');

end.

Программа с for

program bacteria_2;

var bac,min,i:integer;

begin

bac:=1;

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

readln(min);

for i:=1 to min do

begin

 bac:= bac*2;

 min:= min-1

end;

writeln('Стало ',bac,' бакт.');

end.

Написано на языке PascalABC.NET