A. trắc nghiệm

1.D

2.A

3.D

5.C

6.A

B.tự luận

1.

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

Hoạt động của vòng lặp:

• Bước 1: Biến đếm nhận giá trị đầu
• Bước 2: Chương trình kiểm tra biểu thức điều kiện, nếu biểu thức điều kiện đúng thì thực hiện câu lệnh
• Bước 3: Biến đếm tự động tăng lên 1 đơn vị và quay lại Bước 2
• Bước 4: Nếu biểu thức điều kiện nhận giá trị sai thì thoát ra khỏi vòng lặp

2.

program tinh_tong;

var N,i: integer;

        S:longint;

Begin

         write('nhap so n');

          readln(n);

          For i:=1 to n do S:=S+i;

           write ('tong cua', N,'So tu nhien dau tien s=',s);

          readln;

End.

I, Trắc nhiệm:

câu 1 - D

câu 2 - A

II, Tự luận:

Câu 1

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

Sử dụng khi cần lặp lại công việc với số lần thực hiện biết trước

Câu 2

program  tinh_tong;

var n,i:integer;

      s:longint;

begin

write('nhap so n= ');read(n);

for i:=1 to n do

s:=s+i;

writeln('tong cua ',n,' so tu nhien dau tien s= ',s);

readln;

end.