Viết chương trinh thực hiện tính tổng theo công thức sau: S = 1 - 2 + 3 - 4 + 5 - 6 + .... + n, với n là số nguyên dương nhập từ bàn phím.
2 câu trả lời
uses crt;
var n,i,s:longint;
begin
clrscr;
write('nhap n:');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=',s);
readln;
end.