I-08

Курьеры (I уровень)

Условие:
Хлестакова приглашали управлять департаментом. В первый день ему прислали 1000 курьеров, а в каждый следующий - в 2 раза больше, чем в предыдущий. Хлестаков согласился, когда прислали 30000 курьеров. На какой день это произошло?
(Учесть, что Хлестаков слаб в умножении и делении).

Решение:
Идея решения. Типичная итерационная задача. В цикле выполняем действие, пока количество курьеров не достигло 30000, каждый следующий день увеличиваем их количество в 2 раза ( без умножения), считая при этом количество дней.

var
s,n:longint;
i:byte;
begin
i:=0;
n:=1000;
s:=0;
while s<=30000 do
begin
  s:=s+n;
  i:=i+1;
  n:=n+n;
end;
writeln('На ',i,' день!');
end.