задача

[guffer]

Выписаны числа от 1 до N по порядку. Между каждой парой соседних чисел попеременно расставлены знаки "+" и "-". Надо найти чему равно значение выражения.
Например, для N=12 будет так: +1-2+3-4+5-6+7-8+9-10+11-12=-6.
Задача:
С клавы вводится(в Edit1)число N(1<=N<=32000).
В Edit2 выводится значение.
Помогите,вообще не понимаю как это сделать

[Вавел из ГМТУ]

Идёшь по строке.
Если нечётный индекс, то Continue.
Если S[i - 1] равно '+' значит плюсуем к Result. В противном случаем минусуем к Result.

[guffer]

Не понял(((

[SnX]

var
   i,n,res:integer;
   flag: boolean;

begin
     n:=StrToInt(Edit.Text);

     flag:=true;

     for i:=1 to n do
         begin
            if flag then
                 res:=res+i
            else res:=res-i;
            flag:=not flag;
         end;
....

[Вавел из ГМТУ]

For i := 1 To Length(S) Then Begin
if (i mod 2) = 0 Then Continue;
If S[i-1] = '+' Then ..... Else ...... ;
End;

[evg_m]

if n mod 2 =0 then
r:=(n div 2)*(-1)
else
r:=(n div 2)*(-1)+n;

или одной строкой
r:=(n div 2)*(-1) + n*(n mod 2);