Giúp mình với ạ
Viết chương trình IDE Pascal nhập vào một chuỗi xâu (string), in hoa các kí tự bên tay phải khoảng trắng
Ví dụ là: to yeu cau => to Yeu Cau
uses crt; var i:longint; s:string; begin clrscr; write('Nhap 1 xau : ');readln(s); for i:=1 to length(s) do if s[i-1] =' ' then s[i]:=upcase(s[i]); writeln('Ket qua: ',s); readln end.