Bài 3: Cho đoạn chương trình:
Var S1,S2,S: String[20];
a,b:byte;
ch:char;
Begin
S1:= 'Ha Noi';
S2:= 'Hai Phong';
ch:= Upcase(S1[2]);
b:= pos(',S2);
a:= length(S1);
S:= copy(S2,1,3);
delete(S2,1,4);
insert('TP ',S1,1);
End.
Xác định kết quả của S1,S2,S,b,a,ch sau khi thực
hiện đoạn chươ ...
Xem thêm
0
40
0
M.n ơi cứu em đi m.n