Ивана Александровича Хлестакова пригласили управлять департаментом. В 1-й день ему...

Question

Ивана Александровича Хлестакова пригласили управлять департаментом. В 1-й день ему прислали 1000 курьеров, а в каждый последующий – в 2 раза больше, чем в предыду¬щий. Иван Александрович согласился тогда, когда к нему прибыли сразу не менее 30000 курьеров. Вывести на экран сообщение о том, на какой день это произошло. Определить, не пользуясь умножением и делением: Иван Александрович с ними не в ладах. (10 баллов) Формат вывода данных: Это произошло на …-й день.

Answer 1

Var k,n:integer;
begin
k:=1000; n:=1;
while k<30000 do<br> begin
 k:=k+k;
 n:=n+1;
 end;
writeln('Это произошло на ',n,'-й день');
end.

Результат:
Это произошло на 6-й день