Xâu kí tự
Câu:
Cho xâu kí tự s, câu lệnh sau thực hiện công việc gì? for i:= legnth(s) downto 1 do write(s[i]);
In xâu s ra màn hình
In từng kí tự của xâu từ trái qua phải ra màn hình
In từng kí tự của xâu từ phải qua trái ra màn hình, trừ kí tự đầu tiên
Các phương án trên đều sai
Câu 2:
Cho xâu kí tự s, câu lệnh sau thực hiện cong việc gì? for i:=1 to length(s)-1 do s[i+1] := s[i];
Dịch chuyển các kí tự của xâu về phía sau một vị trí
Dịch chuyển các kí tự của xâu về phía trước một vị trí
Gán lại mọi kí tự của xâu bằng kí tự đầu tiên
Các phương án trên đều sai
Câu 3:


Cho S=`abcdef`. Sau khi thực hiện thủ tục Delete(S,2,2), được S là:
`abef`
`adef`
`abcd`
`cdef`
Câu 4:
Chương trình sau nhập từ bàn phím xâu S1, tạo xâu S2 gồm tất cả các chữ số có trong S1, sau đó in ra màn hình xâu S2. Hãy điền vào các chỗ trống để được chương trình hoàn chỉnh:
uses crt; var S1, S2 : string; i: integer; begin write(`Nhap xau S1 : `); readln(S1); ||s2:=``;|| for i:=1 to length(s1) do if ||(s1[i]>=`0`)|| and (s1[i]=`9`) then s2 := s2 + s1[i]; ||write(s2);|| end.