Với a = 150 sau khi thực hiện câu lệnh sau x sẽ nhận giá trị bao nhiêu :
if a> 200 then if a> 300 then x = 20 else x:= 40 else if a >400 then x:= 50
else x:= 60;

Với a = 100 sau khi thực hiện câu lệnh sau x sẽ nhận giá trị bao nhiêu :
begin x:= 10; if a> 200 then if a< 300 then x = 20 else x:= 40 else if a >400
then x:= 50 ; end

Một người viết chương trình tính thuế thu nhập. Nếu dịch chương trình có lỗi thì dòng đầu tiên có lỗi là dòng nào :
program Tinhthue;
var thunhap:integer;
thue: real;
begin
read(thunhap);
if thunhap <20000
thue := 0
else
if thunhap <30000 then
{1} thue := ( thunhap - 20000) * 0.1;
{2} else
{3} if thunhap < 50000 then
{4} thue := ( thunhap - 30000) * 0.2 + 10000 ;
else
{5} thue := ( thunhap - 50000) * 0.3 + 30000;
write(thue);
end.

Đoạn chương trình sau đây định dùng để xác định các thành phố ở Việt nam theo vĩ độ. Nếu dịch chương trình thì dòng nào là dòng đầu tiên có lỗi
{1} var vido : real;
(* Một số dòng khác của ch−ơng trình ở vị trí này................................... *)
{2} case vido of
{3} 21 : writeln('Ha noi');
{4} 17.35 : writeln('Hue');
{5} 16 : writeln('Da nang');
{6} 14.21 : writeln('TP Ho Chi Minh');
{7} end;

Phát biểu nào đúng:

Tìm kết quả in ra của đoạn chương trình sau:
for i:=0 to 4 do
for j:=1 to i-1 do write(i);

Tìm kết quả in ra của đoạn chương trình sau:
for i:=0 to 4 do
for j:=1 to i-1 do write(j);

Tìm kết quả in ra của đoạn chương trình sau:
for i:=0 to 4 do
for j:=i downto 1 do write(i);

Tìm kết quả in ra của đoạn chương trình sau:
for i:=0 to 4 do
for j:=i downto 1 do write(j);

Tìm giá trị của biến k sau khi chạy đoạn chương trình sau:
k := 5;
while (k<25) do
begin
if k mod 3 = 1 then k := k * 2
else
if k mod 3 = 2 then k := k * 2 - 1;
end;