Вы должны другу 4000 рублей. Он предлагает выплатить ему долг следующим образом: в первую неделю- 1 руб, во вторую- 2 руб, в третью- 4 руб, в четвёртую 8 руб и т.д. в течении 12 недель. Выгодно ли вам такое предложение. Какую сумму вы выплатите таким способом.

Задача из Паскаля. Помогите плз.

Вопрос школьника по предмету Информатика

Вы должны другу 4000 рублей. Он предлагает выплатить ему долг следующим образом: в первую неделю- 1 руб, во вторую- 2 руб, в третью- 4 руб, в четвёртую 8 руб и т.д. в течении 12 недель. Выгодно ли вам такое предложение. Какую сумму вы выплатите таким способом.

Задача из Паскаля. Помогите плз.

Ответ учителя по предмету Информатика

Var

   S,A:integer;

   n:byte;

Begin

S:=0;

A:=1;

For n:= 1 to 12 do

    Begin

    S:=S+A;

    A:=A*2

    End;

WriteLn(‘Сумма выплаты составит: ‘,S);

End.

Результат работы программы:

Сумма выплаты составит: 4095