3 ko co dap an

4 D

5 B

6 A

7 C

8 D

tu luan

câu 1 có thể tìm trong sgk

câu 2

a) if a<b then max:=a else max:=b;

b)....of real ->.....of integer

c) .....X:=10....->....X<=10.....

d) .....i:=1.5....->...i:=1.....

cau 3

uses crt;

var A,i,N:integer;

begin

clrscr;

A:=0;

readln(N);i:=1;

while i<=N do

begin

A:=A+i;

i:=i+1;

end;

writeln(A);

readln;

end.

$I$

Câu 3: Tất cả đều đúng.

Câu 4: D

Câu 5: A

Câu 6: A

Câu 7: C

Câu 8: D

$II$

Câu 1:

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

- Hoạt động:

+ Xét điều kiện, nếu điều kiện đúng thì thực hiện và lặp đến khi điều kiện đó sai.

+ Nếu điều kiện sai từ ban đầu, chương trình kết thúc.

Câu 2:

*Chỗ in đậm là chỗ sửa.

a. if a>b then max:=a else max:=b; //Chỗ này không có dấu ";" trước else.

b. var X: Array[5..10] Of integer;

c. X:=10; while X=10 do X:=X+5;

d. for i:=1 to 10 do m:=m+1; hoặc for i:=2 to 10 do m:=m+1;

Câu 3:

uses crt;
var n,i,s:integer;
begin
       clrscr;
       s:=0;
       write('Nhap N: '); readln(n);
       for i:=1 to n do s:=s+i;
       write('Tong: ',s);
       readln;
end.