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

Одноклеточная амеба каждые три часа делится на 2 клетки составьте алгоритм вычисления времени через которое будех X амеб

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

Program pr;
uses crt;

Var vremya, X, kol_vo:integer;

Begin
kol_vo:=1;  {первоначально будет 1 амеба}
vremya:=0;
Write(Введите необходимое кол-во амеб: );
readln(X);
While (kol_vo < X) do 
   Begin
      kol_vo:=kol_vo*2;
      vremya:=vremya+3;
   end;

Writeln(Время = ,vremya, часа);

readln();
end.