1 Дудка Андрей Аркадиевич, 12 ноября 2012 г. 23:10:09
2-я задача: Program n2; var m,n,s,i:longint; begin assign(input,'input.txt'); reset(input); assign(output,'output.txt'); rewrite(output); s:=0; read(n); m:=abs(n); for i:=1 to m do s:=s+i; if n<0 then begin; s:=s*-1; s:=s+1; end; if n=0 then writeln(s+1) else writeln(s); end.
