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

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

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

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

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

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

Пожалуйста

// PascalABC.NET 3.1, сборка 1200 от 13.03.2016begin  Writeln('s=',Range(ReadInteger('n='),-1).Sum)end.Тестовое решение:n= -8s=-36"Школьный вариант"// PascalABC.NET 3.1, сборка 1200 от 13.03.2016var  i,n,s:integer;begin  s:=0;  Write('n='); Read(n);  for i:=-1 downto n do s:=s+i;  Writeln('s=',s)end.