cho đoạn chương trình sau a:=1; while a<10 do write ( a); a:=a+1;
Hãy cho biết kết quả của a bằng bao nhiêu?
A. In ra từ 1 đến 9
B. In ra từ 1 đến 10
C. lặp vô hạn
D. In ra 10
Đáp án của bạn:
ABCDCâu 02:
Câu lệnh nào sau đây viết đúng
A. While a<b do a=a+1;
B. White a<b do a:=a+1;
C. While a< b do a:=a+1;
D. while a< b do ; a:=a+1
Đáp án của bạn:
ABCDCâu 03:
kq:=0; while 2*a< b do begin a:=2*a; kq:=kq+1; end;
Với a= 1; b=4 thì “ kq “ bằng bao nhiêu?
A. 8
B. 2
C. 6
D. 4
Đáp án của bạn:
ABCDCâu 04:
Đoạn chương trình nào sau không bị lỗi
A. For i:=1 to n do x:=x+1
B. For i=1 to n do x:=x+1;
C. For i:=1 to n do x=x+1;
D. For i:=1 to n do x:=x+1;
Đáp án của bạn:
ABCDCâu 05:
với a:=5; b:=6 ; ta có while b> a do b:=b+1;
A. lặp vô hạn
B. 1000
C. 1000000
D. 7
Đáp án của bạn:
ABCDCâu 06:
Đoạn lệnh sau cho kết quả x bao nhiêu. X:=0; for i:=1 to 5 do x:=x+i;
A. 15
B. 5
C. 0
D. 20
Đáp án của bạn:
ABCDCâu 07:
Cú pháp câu lệnh lặp biết trước
A. For < biến đếm> : = < giá trị đầu> to < giá trị cuối> do;
B. For < biến đếm> = < giá trị đầu> to < giá trị cuối> do
C. For < biến đếm> ; = < giá trị đầu> to < giá trị cuối> do
D. For < biến đếm> : = < giá trị đầu> to < giá trị cuối> do
Đáp án của bạn:
ABCDCâu 08:
với d:=0; while
d<n do begin d:=d+1; if d mod 10=0 then n:=n+3; end; wrtite(n); Với n=10 thì cho kết quả cuối cùng của n là bao nhiêu?
A. 11
B. 12
C. 10
D. 13
Đáp án của bạn:
ABCDCâu 09:
Cho đoạn chương trình a:=3; b:=2; while b< a do b:=b+1; kết quả của a,b sau khi kết thúc lặp là
A. 3,4
B. 3,3
C. 2,3
D. 3,2
Đáp án của bạn:
ABCDCâu 10:
Cú pháp câu lệnh lặp chưa biết trước
A. While < điều kiện > do
B. White < phép gán> do;
C. While < điều kiện> do ;
D. White < phép gán> do
Đáp án của bạn:
ABCDCâu 11:
Cho đoạn chương trình a=3; b:=2; while b< a do b:=a; kết quả của a,b sau khi kết thúc lặp là
A. 2,3
B. 3,4
C. 3,3
D. 3,2
Đáp án của bạn:
ABCDCâu 12:
Câu lệnh ghép là câu lệnh đặt giữa từ khóa
A. begin;… end.
B. Begin … end;
C. Begin .. end.
D. begin.. readln.
Đáp án của bạn:
ABCDCâu 13:
Đoạn lệnh sau cho kết quả x bao nhiêu. X:=0; for i:=1 to 5 do x:=x+1;
A. 15
B. 5
C. 20
D. 0
Đáp án của bạn:
ABCDCâu 14:
kq:=0; while 2*a< b do begin a:=2*a; kq:=kq+1; end;
Với a= 2; b=5 thì “ kq “ bằng bao nhiêu?
A. 2
B. 4
C. 3
D. 1
Đáp án của bạn:
ABCDCâu 15:
Đoạn chương trình nào sau không bị lỗi
A. For i:=10 to 1 do x:=x+1;
B. For i:=1 to 10 do x = x+1;
C. for i:=1 to 10 do x:=x+1
D. For i:=10 to 1 do x:=x+1
Đáp án của bạn:
ABCDCâu 16:
Đoạn lệnh sau cho kết quả x bao nhiêu. X:=0; for i:=5 to 1 do x:=x+i;
A. 5
B. 20
C. 15
D. 0
Đáp án của bạn:
ABCDCâu 17:
for i:=1 to n do if n mod 2 =0 then s:=s+i; với n =6 thì kết quả s là?
A. 15
B. 0
C. 21
D. 5
Đáp án của bạn:
ABCDCâu 18:
cho đoạn chương trình sau a:=1; while a<10 do begin write ( a); a:=a+1; end;
Hãy cho biết kết quả của a bằng bao nhiêu?
A. In ra từ 1 đến 10
B. In ra 10
C. In ra từ 1 đến 9
D. lặp vô hạn
Đáp án của bạn:
ABCDCâu 19:
s:= 0; for i:=1 to n do if n mod 2 =0 then s:=s+i; với n =5 thì kết quả s là?
A. 15
B. 1
C. 5
D. 0
Đáp án của bạn:
ABCDCâu 20:
Cho đoạn chương trình a:=3; b:=2; while b< a do begin b:=a; a:=b end; kết quả của a,b sau khi kết thúc lặp là
A. 2,3
B. 3,3
C. 3,2
D. 3,4
