var s1,s2,s3 :string; l,k,kt,i: byte; begin s1:='thang ba trieu phong'; s2:='quang tri'; l:=length(s1)d\v3; instert(s1,s2,7) k:=pos('4,s1');kt:=length(s1) for i:=1to length(s2)do s3:=s3+upcase(s1[i]); readln end. hãy xđ s2,s3,l,k,kt
1 câu trả lời
var s1,s2,s3 :string;
l,k,kt,i: byte;
begin s1:='thang ba trieu phong';
s2:='quang tri'; l:=length(s1)d\v3;
instert(s1,s2,7) k:=pos('4,s1');
kt:=length(s1)
for i:=1to length(s2)do s3:=s3+upcase(s1[i]);
readln;
end.
Câu hỏi trong lớp
Xem thêm
