Задача про циклы. Рассчет долга по условию... Опции

[lFOXl]

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

Задача:
В понедельник Т одолжил 2р. Во вторник в два раза больше, и отдал половину долга.
Каждый следующий день Т занимал в два раза больше рублей чем в предидущий, отдавая из них целую часть от половины долга.
Сколько в целом займет Т через n недель, сколько будет должен, сколько вернет.

Помогите пожалуйста, уже не могу прямо...

Сообщение отредактировано: lFOXl - 4.03.2010 20:43

[Unconnected]

Тогда так:

var i,dolg,sum,backsum,n:longint;
begin
  dolg:=2;sum:=2;backsum:=0;
  writeln('Vvedite kolichestvo nedel');
  readln(n);
  for i:=2 to n*7 do begin
    dolg:=dolg*2;
    inc(sum,dolg);
    inc(backsum,dolg div 2);
  end;
  writeln('Polniy zaim = ',sum);
  writeln('Dolg = ',dolg);
  writeln('Vozvracjeno = ',backsum);
  readln;
end.

А отрицательное число - это потому, что значения уже не помещались в Integer. Я исправил на LongInt, на 4х неделях отрабатывает.