ИЗИ ЗАДАНИЕ (35 БАЛЛОВ!!!) Каждая бактерия делится ** две в течении одной минуты. В...

Question

ИЗИ ЗАДАНИЕ (35 БАЛЛОВ!!!) Каждая бактерия делится на две в течении одной минуты. В начальный момент имеется одна бактерия. Составьте программу, которая рассчитывает количество бактерии на заданное вами целое значение момента времени. Вот программа через While: (фото) НАДО СДЕЛАТЬ 2 ПРОГРАММЫ!!! ОДНУ ЧЕРЕЗ REPEAT, ДРУГУЮ ЧЕРЕЗ FOR!!!

---

Answer 1

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

Comments

СПАСИБО ТЕБЕ БОЛЬШОЕ :)