Question

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

Answer 1

program amoeba; 

var i,count:integer; 
begin 
i:=3; //количество часов 
count:=1; //количество амеб 
while i < = 24 do 
begin 
count:=count*2; //каждые 3 часа количество амеб удваивается 
writeln(i,' hours: ',count); //выводим кол-во часов и амеб 
i:=i+3; 
end; 
readln; 
end.