Question

1 амёба в минуту делиться на две части. Через сколько минут будет 200 амёб. Напишите программу

Answer 1

Program aga_1;
var k,t : integer;
begin
k:=200;
while k>0
begin
k:= k/2;
t:=t+1;
end
end.