Задача в Паскале. Вы должны другу 4 тысячи рублей. Он предлагает выплатить ему долг след...

Question

Задача в Паскале.
Вы должны другу 4 тысячи рублей. Он предлагает выплатить ему долг след образом: в первую неделю 1 рубль, во вторую 2 рубля, в третью 8 и т.д. в течении 12 недель. Выгодно ли это вам и какую сумму таким способом вы заплатите.

Comments

По какой это логике идет нарастание? Объясните фичу, я программу напишу. Первая неделя - 1. Вторая неделя - 2. Третья неделя - 8!??? Вообщем, я не понял, что писать в программе. Она должна посчитать, сколько ты заплатишь по прошествии 12 недель? Если да, то объясните систему нарастания суммы выплаты

---

Или сумма выплаты для каждого дня вводится с клавиатуры?

---

Простите, допустил опечатку.В 1 неделю 1, во 2 неделю 2 рубля, в 3 неделю 4 рубля, в 4 неделю 8 рублей

Answer 1

Var i,s,ss : longint;
Begin
ss:=1;
s:=1;
Writeln('На 1 неделе вы заплатите: 1 руб.');
for i:= 1 to 11 do
begin;
s:=s*2;
Writeln('На ',i+1,' неделе вы заплатите: ',s,' руб.');
ss:=ss+s;
end;
Writeln('Общая сумма: ',ss,' руб.');
if (ss<4000) then write(' Вам это выгодно!') else write(' Вам это не выгодно!');<br>readln(s); //Эта строка нужна для остановки программы, чтоб она не                                       // закрывалась. ее можно было и не писать
end.

//На скриншоте показано, что выйдет при запуске.

---

Comments

В принципе, программа бесполезна, так как выполняет один и тот же алгоритм. Если хочешь самостоятельно вписывать сумму долга, то вначале, после "Begin" добавить две строки:

---

Write('Введите сумму долга: '); read(x); ((Еще после Var, через запятую надо добавить этот "x" ))

---

А так же в конце, где "(ss<4000)" вместо "4000" написать "x". Если всё это проделать, то программа будет запрашивать у пользователя сумму, которую он должен, а затем уже говорить, выгодно ли платить подобным образом в течение 12-и недель