Нужно в паскале ABSОдноклеточная амеба каждые 3 часа делится на 2 клетки. Определить сколько амеб будет через 3,6,9,12,....24 часа?
Нужно в паскале ABS
Одноклеточная амеба каждые 3 часа делится на 2 клетки. Определить сколько амеб будет через 3,6,9,12,....24 часа?
Гость
Ответ(ы) на вопрос:
Гостьvar k,om :integer;
begin
om:=1;
for k:= 1 to 24 do
if k mod 3 = 0 then
begin
om:=om*2;
writeln('Через ',k,' часов - ',om);
end;
end.
Не нашли ответ?
Похожие вопросы