ИЗИ ЗАДАНИЕ (35 БАЛЛОВ!!!)

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

Вот программа через While: (фото)

НАДО СДЕЛАТЬ 2 ПРОГРАММЫ!!! ОДНУ ЧЕРЕЗ REPEAT, ДРУГУЮ ЧЕРЕЗ FOR!!!

Программа 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