Помогите составить алгоритм

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

Question

Надя

7 ноября, 03:24

+1

Ответы (1)

Знаете ответ на вопрос?

Дорофея · Answer 1

Var a, i: integer;

begin

a:=1;

for i:=1 to 8 do

begin

a:=a*2;

writeln (a, ' амеб через ', i*3, ' часов') ;

end;

end.

Помогите составить алгоритмОдноклеточная амеба каждые 3 часа делится на 2 части. сколько амеб будет через 3,6,9 ... 24 часа