1. Câu lệnh sau thực hiện công việc gì?
If N mod 3=0 then wrote (N, 'chia het cho 3') else write(N, 'khong chia het cho 3');
A.Kiểm tra xem N có phải là số có ba chữ số hay không
B.Kiểm tra xem N có chia hết cho 3 không
C.Kiểm tra xem N có tận cùng bằng 3 hay không
D.Tất cả đều sai
2.Xét biểu thức logic (n div 10 >0) and (n div 100=0). Khẳng định nào sau đây là đúng?
A.Kiểm tra xem n có phải là số tự nhiên có hai chữ số hay không
B.Kiểm tra xem n có chia hết cho 10 hay không
C.Khi nào sử dụng thủ tục readln(<danh sách biến vào >);?
D.Khi cần xuất dữ liệu ra khỏi màn hình
3.Biết rằng a,b,c là độ dài 3 cạnh của một tam giác, biểu thức quan hệ nào sau đây cho kết quả true?
A. a-b >c
B. a+b >c
C. b-c >a
D. a+b < c
4.Cho biết kết quả của chương trình sau
a:=3; b:=4; c:=5
If ((a*a=b*b+c*c) or (b*b=a*a+c*c)) or (c*c=b*b+a*a) then
write('Do la bo so pitago') else wrote('Do khong la bo so Pitago');
A. Do la bo so pitago
B. Do khong la bo so pitago
C. Do khong la bo so Pitago
D. Do la bo so Pitago
5. Cho các khai báo:
Var ch: char; A,B: integer; C,D: byte; e,f:real; p,k: Boolean; l,m:extended;
Các phép gán nào dưới đây là đúng
A. k:=false; ch=a; b:=50; e:=120
B. ch:='a' ; a:=2; b:=4; c:=6
C. p:=true; ch:=a; a:=1000; f:=3.14
D. ch:="abc"; a:=2; b:=5; F:3.14
6.Kết quả của đoạn chương trình sau là gì?
N:=1900;
If (N mod 400 =0) or ((N mod 4=0) and (N mod 100 < >0)) then
write( 'N la nam nhuan') else write(N, ' khong phai la nam nhuan');
A. 1900 la nam nhuan
B. 1900 khong phai la nam nhuan
C. N khong pahir la nam nhuan
D. N la nam nhuan
7.Trong thủ tục readln(<danh sách biến vào >); nếu có nhiều biến thì giữa các biến ngăn cách bởi:
A.Dấu cách
B.Phím Enter
C.Dấu phẩy
D.Cả A và B đúng
8.Cho a,b là 2 biến kiểu thực, câu lệnh nào dưới đây là đúng?
a. readln(a,5)
B.realdn('b=',b)
C. readln(a:0:2);
D. readln(a,b)
