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.

Câu hỏi trong lớp Xem thêm