Program ct2; Var s: string; x,y: integer; Begin S:='Đethitinhoc11'; x:=length(s); y:=pos('i',s); write(x,y); readln; end. Sau khi thực hiện chương trình, Giá trị biến x, y lần lược là:
A.
13 và 7
B.
'i' và 'a'
C.
'Tin' và 11
D.
13 và 5
Đáp án và lời giải
Đáp án:D
Lời giải:lenght(s)=13 pos('i',s)=5