Câu 2:

J:=0;  `->` Khởi tạo J=0;

for i:=1 to 5 do j:=j+i; `->` i tăng dần từ 1 đến 5 và cộng dần vào biến J

`->` J=1+2+3+4+5 `->` J=15

Vậy sau khi thực hiện câu lệnh đó thì J=15

Câu 3:

For i:=10 to 1 do x:=x+1; `->` Sai, trong For..to..do thì giá trị cuối phải lớn hơn hoặc bằng giá trị đầu

`->` Sửa: For i:=1 to 10 do x:=x+1;

----------------------------------------------

s:=0; n:=0; while s<=10 do n:=n+1; s:=s+n; `->` Xét về mặt cấu trúc thì câu lệnh này đúng nhưng xét về mặt kết quả thì câu lệnh này sai(lặp vô hạn)

`->` Sửa: s:=0; n:=0; while s<=10 do begin n:=n+1; s:=s+n; end;

----------------------------------------------

For i:=1 to 10 do x:=x+1; `->` Sai cú pháp: For <biến đếm>:=<GTĐ> to <GTC> do <câu lệnh>;

`->` Sửa: For i:=1 to 10 do x:=x+1;

----------------------------------------------

Var x: array[5..10.5] of real; `->` Sai vì chỉ số đầu và chỉ số cuối mảng phải là số nguyên

`->` Sửa Var x: array[5..10] of real;

1Sai sửa-> for i:=1 to  10 do x:=x+1;

2Sai -> s:=0; n:=0;

             while s<=0 do

             begin

              n:=n+1;

             s:=s+n; 

               end;

3Đúng

4Sai -> var X:Array[5..10] of real;