Cho 1 xâu ???? gồm các ký tự ????…????, ????…???? và dấu cách. Chuẩn hóa xâu ???? về dạng chuẩn biểu diễn tên người– chữ cái đầu tiên mỗi từ viết hoa, các chữ còn lại viết thường. (pascal nha)
Cho 1 xâu ???? gồm các ký tự ????…????, ????…???? và dấu cách. Chuẩn hóa xâu ???? về dạng chuẩn biểu diễn tên người– chữ cái đầu tiên mỗi từ viết hoa, các chữ còn lại viết thường. (pascal nha)
uses crt;
var st:string;
i:byte;
begin
clrscr;
readln(st);
while pos(‘ ‘,st)<>0 do delete(st,pos(‘ ‘,st),1);
if st[length(st)]=’ ‘ then delete(st,length(st),1);
if st[1]<>’ ‘ then st:=’ ‘+st;
for i:=2 to length(st) do
if st[i-1]=’ ‘ then
st[i]:=upcase(st[i])
else
if st[i] in [‘A’..’Z’] then
st[i]:=chr(ord(st[i])+32);
delete(st,1,1);
writeln(st);
readln;
end.