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

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

Question

Эрнест

16 июня, 03:51

+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 часа