Viết chương trình nhập vào xâu kí tự đưa ra xâu kí tự với chữ hoa đầu mỗi chữ( Tin 11-Pascal) (Chẳng hạn như là : Học Sinh Trường Trung Học Phổ Thông)
2 câu trả lời
program viethoa;
uses crt;
var st:string;
i:byte;
begin
clrscr;
write('Nhap xau: '); readln(st);
if not(st[1] in ['A'..'Z']) then st[1]:=upcase(st[1]);
for i:=2 to length(st) do
if not(st[i] in ['A'..'Z]) and (st[i-1]=#32) and (st[i]<>#32) then st[i]:=upcase(st[i]);
write('Xau moi la: ',st);
readln
end.
uses crt;
var i:integer;
s:string;
BEGIN
clrscr;
write('Nhap xau:'); readln(s);
s[1]:=upcase(s[1]);
for i:=2 to length(s)-1 do
if s[i]=' ' then s[i+1]:=upcase(s[i+1]);
write(s);
readln
END.
