Question

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

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

Answer 1

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