Question

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

Answer 1

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-й день