Ивана Александровича Хлестакова пригласили управлять департаментом. В 1-й день ему прислали 1000 курьеров, а в каждый последующий – в 2 раза больше, чем в предыду¬щий. Иван Александрович согласился тогда, когда к нему прибыли сразу не менее 30000 курьеров. Вывести на экран сообщение о том, на какой день это произошло. Определить, не пользуясь умножением и делением: Иван Александрович с ними не в ладах. (10 баллов) Формат вывода данных: Это произошло на …-й день.
Answers & Comments
Verified answer
Var k,n:integer;begin
k:=1000; n:=1;
while k<30000 do
begin
k:=k+k;
n:=n+1;
end;
writeln('Это произошло на ',n,'-й день');
end.
Результат:
Это произошло на 6-й день