Напишите программу, которая вычисляет сумму всех отрицательных чисел от 1 до n. Если...

Question

Напишите программу, которая вычисляет сумму всех отрицательных чисел от 1 до n.

Если можно побыстрее, а то на завтра нужно.

Comments

1 - это положительное число

---

Или Вам от -1 надо?

---

От -1

Answer 1

// PascalABC.NET 3.1, сборка 1200 от 13.03.2016
begin
  Writeln('s=',Range(ReadInteger('n='),-1).Sum)
end.

Тестовое решение:
n= -8
s=-36

"Школьный вариант"

// PascalABC.NET 3.1, сборка 1200 от 13.03.2016
var
  i,n,s:integer;
begin
  s:=0;
  Write('n='); Read(n);
  for i:=-1 downto n do s:=s+i;
  Writeln('s=',s)
end.

Comments

Ок*

---

Это потому, что Вы не знаете, как можно писать короткие программы)))

---

Не учат в школах этому. Обычно потому, что учителя сами этого не знают.

---

Ясно

---

Спасибо)))

---

Я могу Вам написать еще и сугубо школьный вариант. Если надо

---

Будет длинно и противно))

---

Ну если можно то напишите

---

Спасибо за предоставленную мне помощь.

---

Пожалуйста