Каждая бактерия в банке делится на две через каждые 3 минуты. В начальный момент имеется 1 бактерия. Сколько их будет через N минут?
Ответы
Ответ дал:
0
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.
Ответ дал:
0
uses crt;
var n,s:integer;
begin
write('Введите время N: ');
readln(N);
n:=n div 3;
s:=n;
writeln('Конечное количество бактерий равно ',power(2,s));
end.
Вас заинтересует
1 год назад
1 год назад
7 лет назад
9 лет назад
9 лет назад
9 лет назад