Каждая бактерия в банке делится на две через каждые 3 минуты. В начальный момент имеется 1 бактерия. Сколько их будет через N минут?

2

Ответы и объяснения

2013-04-02T16:07:43+00:00

var count,N,min:integer;
begin
  write('Vvedite N: ');
  readln(N);
  inc(count);
  repeat
    inc(min);
    if ((min mod 3)=0) then inc(count);
  until(min=N);
  writeln(count);
  readln;
end.

2013-04-02T16:09:54+00:00

uses crt;
var n,s:integer;
begin
write('Введите время N: ');
readln(N);
n:=n div 3;
s:=n;
writeln('Конечное количество бактерий равно ',power(2,s));
end.