Question

Answer 1

I: Trắc nghiệm

Câu 1: A

Câu 2: B

 

Answer 2

Câu 3: A

Câu 4: C

Answer 3

Câu 5: C

Câu 6: D

Answer 4

Câu 7: A

Câu 8: D

Answer 5

Câu 9: A

Câu 10: A

Answer 6

II: Tự luận

Câu 1: 

a) 

if <điều kiện> then <câu lệnh 1>

else <câu lệnh 2>;

b) 

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

c) 

While <điều kiện> do <câu lệnh>;

Answer 7

II: Tự luận

Câu 2:

uses crt;

var i,t:integer;

begin

clrscr;

t:=0;

for i:=50 to 100 do 

  if i mod 2=0 then t:=t+i;

writeln(t);

readln;

end.