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

Question

Станиславка

17 февраля, 00:10

+1

Ответы (1)

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

Гаврил · Answer 1

Var

j, n, i:integer;

begin

for i:=1 to 8 do

begin

n:=1;

for j:=1 to i do

n:=n*2;

writeln (n) ;

end;

end.