Câu 1:

-Cấu trúc: For <biến đếm> := <giá trị đầu> to <giá trị cuối> do <câu lệnh> ;

-Hoạt động: Khi thực hiện, biến đếm sẽ nhận giá trị là giá trị đầu, sau mỗi vòng lặp, biến đếm sẽ tự động tăng thêm một đơn vị cho đến khi bằng giá trị cuối thì dừng lại.

Câu 2:

a) Sai, vì sau giá trị cuối (tức số 10) không được có dấu chấm phẩy.

b) Sai, vì câu lệnh For tiến thì giá trị đầu phải nhỏ hơn giá trị cuối; còn nếu là câu lệnh For lùi thì thay downto vào to.

c) Đúng

d) Sai, vì thiếu chữ do sau giá trị cuối (tức số 10).

e) Đúng

Câu 3:

program TongS;

uses crt;

var n,i: byte;

      S: real;

Begin

         clrscr;

         write('Nhap n: '); readln(n);

         for i:=1 to n do S:=S+1/i;

         write('S = ',S:2:2);

         readln

End.

Câu 4:

program 2021;

uses crt;

var i: byte;

Begin          

         for i:=1 to 10 do              

             writeln('CHUC MUNG NAM MOI 2021');          

         readln

End.

Câu 5:

Input: A=1/1.3 + 1/2.4 + 1/3.5 + ......... + 1/n(n+2)

Output: Tổng A

$B1:$ nhập n, A←0, i←1;

$B2:$ A←A + 1/i*(i+2);

$B3:$ i←i+1;

$B4:$ nếu i<=n thì quay lại $B1$;

$B5:$ thông báo kết quả và kết thúc thuật toán