Pascal Бабу Ягу пригласили на должность директора фирмы. В первый день к ней пригласили двух курьеров. Каждый последующий день количество курьеров устраивалось. Баба яга согласилась когда прислали на менее 500 курьеров. Сколько курьеров было прислано в 2,3,4, ... n день. На какой день баба яга согласилась.

Question

Информатика

Цветана

6 марта, 16:22

Pascal Бабу Ягу пригласили на должность директора фирмы. В первый день к ней пригласили двух курьеров. Каждый последующий день количество курьеров устраивалось. Баба яга согласилась когда прислали на менее 500 курьеров. Сколько курьеров было прислано в 2,3,4, ... n день. На какой день баба яга согласилась.

+1

Ответы (1)

Знаешь ответ?

Рубен · Answer 1

Prjgram gt;

var i, d, s:longint;

begin

s:=2; d:=2; i:=1;

while (s <500) do

begin

i:=i+1;

d:=3*d;

s:=s+d;

if (i mod 2 = 0) then writeln (i,' тый день ', d);

end;

writeln (s);

end.