CHƯƠNG TRÌNH TÍNH TỔNG S = -1 + 2 – 3 + 4 – 5 +. . . + (-1)NN

Câu 1) Tìm lỗi sai và sửa đúng trong chương trình sau:

Program tinhtong;

Var s, n, i: integer;

Uese crt;

Begin

Clrscr;

Write(‘nhap n: ’); realn(n);

S:= 0; i:= 1;

While i<= n do

If i mod 2 <> 0 then S:= S + i Else S:= S – i;

i:= i + 1

End;

Write(‘Tong S = ’,S);

Readln

End.