Câu 1:

Cú pháp câu lệnh lặp với số lần biết trước:

+ Dạng lặp tiến: for <biến đếm>:=<giá trị đầu> to <giá trị cuối> do <câu lệnh>;

+ Dạng lặp lùi: for <biến đếm>:=<giá trị cuối> downto <giá trị đầu> do <câu lệnh>;

for, to, downto, do là từ khoá.

Câu 2: 

a) Bỏ dấu ; phía sau 10

b) Bỏ to sửa thành downto

c) i:=1 sửa thành i=1

d) Bỏ dấu ; sau a<=b

e) 

f) Sửa thành for i:=1 to 10 do x:=x+1;

Câu 3: 12 lần

Câu 4: 

uses crt;
var i:byte;
begin
   clrscr;
   for i:=1 to 5 do write('O':4);
   readln
end.

1) Cú pháp câu lệnh lặp với số lần biết trước:

     - Lặp từ bé đến lớn: For <biến đếm>:=<gt đầu> to <gt cuối> do <câu lệnh>;

     - Lặp từ bé đén lớn: For <biến đếm>:=<gt cuối> downto <gt đầu> do <câu lệnh>;

Từ khoá: for, to, downto, do 

Hoạt động: khi biến đếm bằng gt đầu thì thực hiện câu lệnh lặp đến khi biến đếm bằng gt cuối

2) 

a) 10; -> 10

b) to -> downto

c) i:=1 -> i=1

d) a<=b; -> a<=b

e)  1=1 -> i=1

f) Bỏ j:=1

3) 12 vòng lặp được thực hiện

4) 

program bai4;

uses crt;
var i:integer;
begin clrscr;
   for i:=1 to 5 do write('O':3);
readln;
end.

5) 

program bai5;

uses crt;

var N,i:integer;

      T:longint;

begin clrscr;

   write('Nhap so N: '); readln(N);

      T:=0;

   for i:=1/2 to 1/N do

      T:=T+1/i*1;

   write('Tong la: ',T);

readln;

end.

Học tốt!