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

Question

Информатика

Лина

28 марта, 09:46

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.