Vopusbonb
5 год назад
Вы должны другу 4000 рублей. Он предлагает выплатить ему долг следующим образом: в первую неделю- 1 руб, во вторую- 2 руб, в третью- 4 руб, в четвёртую 8 руб и т.д. в течении 12 недель. Выгодно ли вам такое предложение. Какую сумму вы выплатите таким способом.Задание из Паскаля. Пожалуйста посчитайте плз.
ОТВЕТЫ
Авдей
Oct 24, 2020
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
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
468
Смежные вопросы:
