СРОЧНО!18 БАЛЛОВ!!! В Pascal найти разность чисел в промежутке то -15 до 4 сделать с...

Question

СРОЧНО!18 БАЛЛОВ!!!
В Pascal найти разность чисел в промежутке то -15 до 4
сделать с помощью REPEAT!!!

Comments

Разность каких то двух чисел из этого промежутка или вообще всех чисел: -15-(-14)-(-13)-... и т.д.?

---

всех

Answer 1

Получилось: 80

Var
  r,i : Integer;
Begin
  i:=-14;
  r:=-15;
  Repeat
    r:=r-i;
    Inc(i);
  Until i>4;
  Writeln(r);
end.

Comments

это включительно? (считая -15 и 4)

---

да