nhập vào họ tên bất kì sau đó đổi các chữ đầu tiên của mỗi từ thành chữ hoa
1 câu trả lời
program oken;
uses crt;
const chu = ['a..z'];
var ten: string;
i,k:integer;
begin
clrscr;
write('nhap ho va ten: '); readln(ten);
k:= length(ten);
if ten[1] in chu then ten[1]:= upcase(ten[1]);
for i:=2 to k do
if (ten[i-1]= #32) and (ten[i] in chu) then
ten[i]:= upcase(ten[i]);
write('ten sau khi in hoa: ',ten);
readln;
end.
