Câu 1 :
uses crt;
var i, N : integer; S : real;
begin
clrscr;
write('Nhap so N : '); readln(N);
S := 0; for i := 1 to N do
if i mod 2 <> 0 then S := S + 1 / i;
writeln('Tong = ', S : 2 : 1);
readln
end.
Câu 2 :
- Sai lệnh gán giá trị biến X
- Sai điều kiện câu lệnh do
- Thiếu chấm phẩy cuối lệnh