Quý rất thích làm toán. Quý thách đố bạn bài sau: Cho số tự nhiên n. Hãy tính tổng 1−2+3−4+...n. Input: Gồm một số tự nhiên n. Output: In ra một số nguyên là đáp số của tổng trên. Ví dụ Input1 Copy 4 Output1 Copy -2 Input2 Copy 5

2 câu trả lời

uses crt;
var i:longint;n,s:int64;
begin
 clrscr;
  readln(n);
  s:=0;
  for i:=1 to n do if(i mod 2=0)then s:=s-i else s:=s+i;
  write(s);
 readln
end.

không có thông báo nhập chỉ cần nhập 

var n:int64;
begin
    readln(n);
    if odd(n) then writeln(-(n div 2) + n)
    else writeln(-(n div 2));
end.