1) Cau lenh Assign(<bien tep>, <ten tep>); co y nghia gi

A. thu tuc gan ten tep cho ten bien tep                       B. thu tuc mo ten de doc du lieu

C. Khai bao bien tep                                                   D. Thu tuc dong tep

1) Trong PASCAL de khai bao bien tep van ban ta phai su dung cu phap:

A. Var<ten bien tep>: Text;                          B. Var <ten tep>: Text;

C. Var <ten tep> : String;                             D. Var <ten bien tep> : String;

1) Cho doan chuong trinh sau:

s:= '123456';

For i:= length(s) downto 1 do write(s[i]);

Ket qua in ra man hinh la:

A.'123456'       B. '12345'          C.'54321'    D. '654321'

1) Cho doan chuong trinh sau:

s1:= '1234'; s2:='abc';

If length(s1) < length(s2) then writeln(s1) else writeln(s2);

Ket qua in ra man hinh la:

A. '1234'      B. 'abc'       C. '1234abc'           D. 'abc1234'

1) Cho doan chuong trinh sau:

s:= 'Mua xuan';

write(upcase(s[length(s)-2]));

Ket qua in ra man hinh la:

A. 'X'           B.'U'             C.'A'          D. 'N'

1) Cho doan chuong trinh sau: 

s:= 'abcde';

write(pos('cba',s));

Ket qua in ra man hinh la:

A. 0          B.'0'        C.3        D.'3'

1) Cho doan chuong trinh sau:

s:= 'ABCDEF';

delete(s,3,2);

insert('XYZ',s,1);

write(s);

Ket qua in ra man hinh la:

A. 'ABXYZEF'       B. 'ABEXYZF'        C. 'AXYZ'        D. 'AXYZBEF'

1) Cho doan chuong trinh sau:

s1:= '123' ; s2:= 'abc';

insert(s1, s2, 2);

write(s1);

Ket qua in ra man hinh la:

A. 'a123bc'            B.'1abc23'             C.'123'    D. 'abc123' 

1) Xau rong la xau co do dai bang:

A. 1      B.0                 C.3                D.4

1) Cho xau ki tu sau: s:= 'Nguyen Trai'. Lenh nao sau day cho ket qua 'Trai'

A. copy(s, 8, 4);         B. delete(s, 1, 7);             C. Ca A, B deu dung      D. Ca A, B deu sai