Вопрос от посетителя
Помогите пожалуйстаа!Одноклеточная амёба каждые 3 часа делится на 2 клетки.Определить сколько амеб будет через 3,6,9…24 часа.Составить программу на языке Паскаль.
Отвечает Илюха:
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.