CÂU HỎI TRẮC NGHIỆM
Câu 1: Cho S và i là biến nguyên. Khi chạy đoạn chương trình :
s:=0;
for i:=1 to 10 do s := s+i;
writeln(s);
Kết quả in lên màn hình là :
a) s = 11
b) s = 55
c) s = 100
d) s = 101
Câu 2: Cho S, i và N>0 là các biến nguyên. Ðể tính S = N!, chọn câu nào :
a) S := 1; For i := 1 to N do S := S * i;
b) S := 0; For i := 1 to N do S := S * i;
c) S := 1; For i := 1 to N do S := S * N;
d) S := 1; For i:= 1 to N do S := S + i;
Câu 3: Cho S = 1
2
+ 2
2
+ + 100
2
. Nhóm lệnh nào tính sai Giá trị của S:
a) S:=0; FOR i:=1 TO 100 DO S := S + i*i;
b) S:=0; FOR i:=1 TO 100 DO S := S + SQR(i);
c) S:=0; FOR i:=100 DOWNTO 1 DO S := S + i*i;
d) S:=1; FOR i:=1 TO 100 DO S := S + i*i;
Câu 4-Khi chạy chương trình :
Var S, i, j : Integer;
Begin
S := 0;
for i:= 1 to 3 do

b) 14
c) 16
d) 30
Câu 7: Cho i là biến nguyên. Khi chạy đoạn chương trình :
i := 5;
Repeat
i := i + 1;
Until i > 4 ;
Giá trị sau cùng của i là :
a) 6
b) 4
c) 5
d) 0
Câu 8: Cho m, n, i là các biến nguyên. Khi chạy đoạn chương trình :
m:=4; n:=5; i:=5;
Repeat
i:=i+1;
Until (i Mod m = 0) and (i Mod n = 0);
Giátrị sau cùng của i là :
a) 20
b) 5
c) 4
d) 0
Câu 9: Cho chương trình :
Var A : Real;
Begin
. . .
While A = 0 do
begin
write ('nhap A # 0:');