Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.