Одноклеточная бактерия каждые 3 часа делится на 2 клеточки. Найти сколько

Одноклеточная бактерия каждые 3 часа делится на 2 клетки. Найти сколько будет амеб через 3,6,9,12, .... 24 часа (pascal)

Задать свой вопрос
1 ответ
program fofgogjoj;
var    
amebi:integer;    
i:integer;
begin    
amebi:=1;    
for i:=1 to 24 do      
begin      
if i mod 3 = 0 then          
begin          
Write('Время ',i,' ');          
amebi:=amebi*2;          
Write('Амебы ',amebi);          
writeln;      
end;      
end;    
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт