Cho đoạn chương trình sau:   s1:='abcd'   s2:='acb'     

  if length(s1)>length(s2) then write(s2) else write(s1);

Đoạn chương trình trên đưa ra màn hình kết quả nào sau đây:

A. Abcdacb         B. Acb        C. Abcd                D. Acbabcd  

Cho đoạn chương trình sau:

s1 := ‘abc’; s2 := ‘abcd’;

write(pos(s1, s2));

Kết quả in ra màn hình là:

A. 0

B. ‘0’

C. 1

D. ‘1’

Cho đoạn chương trình sau:

s1 := ‘bcd’; s2 := ‘abcd’;

write(pos(s1, s2));

Kết quả in ra màn hình là:

A. 2

B. ‘2’

C. 3

D. ‘3’

Cho đoạn chương trình sau:

s1 := ‘123’; s2 := ‘abcd’;

insert (s1, s2 ,3);

write(s2);

Kết quả in ra màn hình là:

A. ‘ab123cd’

B. ‘123abcd’

C. ‘a123bcd’

D. ‘abc123d’

Cho đoạn chương trình sau:

s1 := ‘123’; s2 := ‘abcd’;

insert (s1, s2 ,1);

write(s2);

Kết quả in ra màn hình là:

A. ‘ab123cd’

B. ‘a123bcd’

C. ‘123abcd’

D. ‘abc123d’

Cho đoạn chương trình sau:

s1 := ‘123’; s2 := ‘abcd’;

insert (s1, s2 ,4);

write(s2);

Kết quả in ra màn hình là:

A. ‘123abcd’

B. ‘a123bcd’

C. ‘ab123cd’

D. ‘abc123d’

Cho đoạn chương trình sau:

s1 := ‘123d’; s2 := ‘abcd’;

delete(s1, 1, 3);

write(pos (s1, s2));

Kết quả in ra màn hình là:

A. 1

B. 2

C. 3

D. 4

Cho đoạn chương trình sau:

s:= ‘abcd’;

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

Kết quả in ra màn hình là:

A. ‘abcd’

B. ‘dcba’

C. ‘abcde’

D. ‘edcba’

Cho đoạn chương trình sau:

s1 := ‘123b’; s2 := ‘abcd’;

delete(s1, 1, 3);

write(pos (s1, s2));

Kết quả in ra màn hình là:

A. 1

B. 2

C. 3

D. 4