Цикл с предусловием. Подсчет дней

@Shoko 312 · Регистрация: 26.10.2012

Author24 — интернет-сервис помощи студентам

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

@Puporev · 06.03.2013, 17:56

Pascal

uses crt;
var k,d:integer;
begin
clrscr;
k:=1000;
d:=1;
while k<=30000 do
 begin
  k:=k*2;
  d:=d+1;
 end;
write('d=',d,' k=',k);
readln
end.

@Shoko 312 0 / 0 / 0 Регистрация: 26.10.2012 Сообщений: 30
		1
	Цикл с предусловием. Подсчет дней 06.03.2013, 17:24. Показов 1499. Ответов 1 Метки нет (Все метки) Ивана Александровича Хлестакова пригласили управлять департаментом. В первый день ему прислали 1000 курьеров, а в каждый последующий присылали в два раза больше, чем в предыдущий. Иван Александрович согласился лишь тогда, когда к нему прибыло больше 30000 курьеров. На какой день Хлестаков согласился управлять департаментом ? Учтите: он не умеет ни делить, ни умножать. 0

	06.03.2013, 17:56

Цикл с предусловием. Подсчет дней

Решение