Phần I: Trắc nghiệm.

17. C

18. B

20. B

22. B

Phần 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>;

- Lưu ý:  + Biến đếm thuộc kiểu nguyên.

              + gá trị đầu và giá trị cuối là giá trị nguyên.

Câu 2:

program kaito;

uses crt;

var n, i, s: integer;

begin

   clrscr;

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

   while i<=n do begin inc(i); s:=s+i; end;

   writeln(Tong cac so tu nhien tu 1 den ',n,' la: ',s);

  vreadln

end.

Câu 3:

- Cú pháp: while <điều kiện> do <câu lệnh>;

- Lưu ý: + Điều kiện thường là một phép so sánh của biến

             + Câu lệnh thường là một phép gán.

Câu 4:

program kaito;

uses crt;

var n, i, s: integer;

begin

   clrscr;

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

   for i:=1 to n do s:=s+i;

   writeln('Tong cac so tu nhien tu 1 den ',n,' la: ',s);

   readln

end.

CHÚC BẠN HỌC TỐT!!!