var i,n,q,h:integer;
k:real;
begin
q:=0;
read(n);
h:= 10000;
if (n <= h) and (n >= -h) then begin
if n>0 then begin
k:= ((1+n)/2)*n;
writeln(k);
end;
if n=0 then begin
k:=0+1;
writeln(k);
end;

if n<0 then begin
for i:= 1 downto n do
inc(q);
k:= ((1+n)/2)*q;
writeln (k);
end;
end;
end.

формула для від'ємних чисел не підходить там така має бути(по моєму): ((1 + a) / 2) * ((a - 1) / ((b - 1) - 1) + 1)

Edited by author 21.10.2016 16:59