Сумма

Время: 1 сек. Память: 16 Мб Сложность: 19%)

Требуется посчитать сумму целых чисел от 1 до N.

Входные данные

В единственной строке входного файла INPUT.TXT записано единственное целое число N, не превышающее по абсолютной величине 10^4.

Выходные данные

В единственную строку выходного файла OUTPUT.TXT нужно вывести одно целое число — сумму чисел от 1 до N.

Пример

№	INPUT.TXT	OUTPUT.TXT
1	5	15

 Решение

var n,m:integer;

    s:longint;

     f,f1:text;

  begin

    assign(f,'input.txt');

    reset(f);

     assign(f1,'output.txt');

     rewrite(f1);

    readln(f,n);

    writeln(n);

    if n=0 then s:=1;

     

    if n>0 then begin

    s:=0;

    for m:=1 to n do

     s:=s+m end;

     if n<0 then begin

     s:=0;

     for m:=2 to abs(n) do

     begin

     s:=s-m;

     end;

     end;

        writeln(f1,s);

     close(f);

      close(f1);

      write(s);

  end.