одноклеточная амеба каждые три часа делится на 2 клетки составьте алгоритм вычисления времени через которое будех X амеб
Ответы
Ответ дал:
0
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.
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.
Вас заинтересует
1 год назад
6 лет назад
6 лет назад
8 лет назад
8 лет назад
9 лет назад