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.
Bạn đang xem câu 1) - KIEM TRA LY THUYET 1 TIET