Câu 1: Cú pháp câu lệnh while .. do: while <điều kiện> do <câu lệnh>;
=> Đáp án B
Câu 2: If (i mod 3 = 0) and (i mod 5 = 0) then t := t + i;
Nếu i chia hết cho 3 và i chia hết cho 5 thì t = t + i
=> Tính tổng các số chia hết cho 3 và 5 trong phạm vi từ 1 đến m
=> Đáp án B
Câu 13: Khai báo mảng một chiều:
Var <tên mảng> : array<tên biến mảng> of <kiểu phần tử>;
=> Đáp án D
Câu 4: Độ dài của một xâu rỗng là 0
=> Đáp án B
Câu 5: Biểu thức thể hiện phần tử thứ i của mảng A nằm trong khoảng (-5; 10) là (A[i] > -5) and (A[i] < 10)
=> Đáp án D
Câu 6: Nếu độ dài của xâu s1 lớn hơn độ dài xâu s2 thì xuất ra màn hình xâu s1, ngược lại xâu d2
=> Đáp án B
Câu 7: Khai báo đúng biến tệp văn bản: Var f: text;
=> Đáp án D
