uses crt;
var i:byte;
st:string;
BEGIN
clrscr;
write('Nhap chuoi:'); readln(st);
st[1]:=upcase(st[1]);
i:=2;
while i<length(St) do
if (st[i]=' ') and (st[i+1] in ['a'..'z']) then
begin
st[i+1]:=upcase(st[i+1]);
inc(i,2);
end
else inc(i);
write('Xau sau khi xu li: ',st);
readln
END.
Chương trình của mình đã đc tối ưu và chạy rất nhanh.
Cho mình câu trl hay nhất nha.