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.