Mọi người giúp mình câu này với ạ :  Tính tổng : S= 1-2-3+4+5-6-7+8+9-10-11+12+...+n Viết chương trình pascal nhập vào một số n tính tổng từ 1 đến n theo 2 cách  
Mình cảm thấy khá là lo lắng và không biết phải làm thế nào với câu hỏi này. Bạn nào thông tuệ giúp mình với, mình sẽ cảm kích mãi mãi!

Để giải câu này, chúng ta có thể sử dụng vòng lặp để tính tổng từ 1 đến n theo 2 cách:

Cách 1: Sử dụng vòng lặp for để tính tổng từ 1 đến n
```pascal
var
n, i, sum: integer;
begin
sum := 0;
write('Nhap vao so n: ');
readln(n);

for i := 1 to n do
begin
if (i mod 4 = 1) or (i mod 4 = 2) then
sum := sum - i
else
sum := sum + i;
end;

writeln('Tong tu 1 den ', n, ' la: ', sum);
end.
```

Cách 2: Sử dụng vòng lặp while để tính tổng từ 1 đến n
```pascal
var
n, i, sum: integer;
begin
sum := 0;
write('Nhap vao so n: ');
readln(n);

i := 1;
while i <= n do
begin
if (i mod 4 = 1) or (i mod 4 = 2) then
sum := sum - i
else
sum := sum + i;

i := i + 1;
end;

writeln('Tong tu 1 den ', n, ' la: ', sum);
end.
```

Chúng ta đã giải câu hỏi và viết phương pháp giải quyết bằng 2 cách khác nhau.