Viết chương trình nhập vào một xâu từ bàn phím. Hãy in hoa kí tự đầu tiên của mỗi từ
2 câu trả lời
uses crt;
var s:ansistring;
i : longint;
begin
clrscr;
readln(s);
if s[1] in ['a'..'z'] then s[1] := upcase(s[1]);
for i := 1 to length(s) do
if s[i] = #32 then s[i+1] := upcase(s[i+1]);
writeln(s);
readln
end.
uses crt;
var s:string;
i:byte;
begin
clrscr;
readln(s);
s[1]:=upcase(s[1]);
for i:=1 to length(s) do
if s[i-1] = #32 then
s[i]:=upcase(s[i]);
writeln(s);
readkey;
end.