Câu 1: Xét chương trình sau:
Var s, i : integer;
Begin
 s:=0;
 for i:= 1 to 5 do s:= s + 1;
 writeln(s);
End.
Kết quả của chương trình trên là:
A) 0 B) 5 C) 10 D) 15

Câu 2: Xét chương trình sau:

Var s, i : integer;

Begin s:=0; for i:= 1 to 5 do s:= s + i; writeln(s); End.

Kết quả của chương trình trên là:

A) 0 B) 5 C) 10 D) 15

Câu 3: Xét chương trình sau: Var s, i : integer; Begin s:=1; for i:= 1 to 5 do s:= s*i; writeln(s); End. Kết quả của chương trình trên là:

A) 1 B) 5 C) 100 D) 120

Câu 4: Xét chương trình sau: Var s, i : integer; Begin s:=0; for i:= 1 to 5 do if ( i mod 2 =1) then s:= s+1; writeln(s); End. Kết quả của chương trình trên là:

A) 0 B) 2 C) 3 D) 5

Câu 5:Xét chương trình sau: Var s1, s2, i : integer; Begin s1:=0; s2:=0; for i:= 1 to 5 do begin s1:= s1 + 1; s2:= s2 + 2; end; writeln(s1,' ',s2); End. Kết quả của chương trình trên là:

A) 5 2

B) 5 5

C) 5 10

D) 0 10

Câu 6:Xét chương trình sau: Var s1, s2, i : integer; Begin s1:=0; s2:=0; for i:= 1 to 5 do s1:= s1 + 1; s2:=s2 + 2; writeln(s1,' ',s2); End. Kết quả của chương trình trên là:

A) 5 2

B) 5 5

C) 5 10

D) 0 10

Câu 7:Xét chương trình sau: Var s1, s2, i : integer; Begin s1:=0; s2:=0; for i:= 1 to 5 do begin s1:= s1 + 1; s2:= s2 + i; end; writeln(s1,' ',s2); End. Kết quả của chương trình trên là:

A) 0 15

B) 5 10

C) 0 10

D) 5 15

Câu 8:Xét chương trình sau:
Var s1, s2, s3, i : integer;
Begin
 s1:=0; s2:=0; s3:=1;
 for i:= 1 to 5 do
 begin
 s1:= s1 + 1; s2:= s2 + i; s3:= s3 * i;
 end;
 writeln(s1,' ',s2,' ',s3);
End.
Kết quả của chương trình trên là:
A) 5 15 20

B) 5 15 120

C) 5 10 15

D) 1 5 10

Câu 9:Xét chương trình sau: Var s1, s2, i : integer; Begin s1:=0; s2:=0; for i:= 1 to 5 do if i mod 2 =1 then begin s1:= s1 + 1; s2:= s2 + 2; end; writeln(s1,' ',s2); End. Kết quả của chương trình trên là:

A) 5 10

B) 3 6

C) 5 6

D) 3 10

Câu 10:Xét chương trình sau: Var s1, s2, i : integer; Begin s1:=0; s2:=0; for i:= 1 to 5 do if i mod 2 =1 then begin s1:= s1 + 1; s2:= s2 + i; end; writeln(s1,' ',s2); End. Kết quả của chương trình trên là:

A) 5 15

B) 5 9

C) 3 9

D) 3 15

Câu 11:Xét chương trình sau: Var s : integer; Begin s:=0; while (s < 5) do s:= s + 1; writeln(s); End. Kết quả của chương trình trên là:

A) 0 B) 1 C) 4 D) 5

Câu 12:Xét chương trình sau:
Var s : integer;
Begin
 s:=0;
 while (s < 5) do s:= s + 1;
 writeln(s);
End.
Kết quả của chương trình trên là:
A) 0 B) 1 C) 4 D) 5

Câu 13:Xét chương trình sau: Var s : integer; Begin s:=5; while (s>0) do s:= s - 2; writeln(s); End. Kết quả của chương trình trên là:

A) -1

B) 0

C) 1

D) 5

Câu 14: Xét chương trình sau:
Var s, i : integer;
Begin
 i:=5; s:=0;
 while (i > 0) do
begin
 s:= s + 1;
 i:= i -2;
end;
 writeln(s);
End.
Kết quả của chương trình trên là:
A) -1 B) 1 C) 3 D) 5