Условие: Хлестакова приглашали управлять департаментом. В первый день ему прислали 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.