code pascal giup minh

var s:string;

i:integer;

begin

  assign(input,'XLX.INP'); reset(input);

  assign(output,'XLX.OUT'); rewrite(output);

    readln(s);

s:=lowercase(s);

    S[1]:=upcase(s[1]);

    for i:=1 to length(s) do

       if S[i]=' ' then S[i+1}:=upcase(S[i+1]);

writeln(s);

close(input); close(output);

end.

`* Pascal:`

`" "`

program normaliser_les_chaines;
uses crt;
var fer, ouv : text;
    chaine : string;
    indi : integer;
    
begin
    clrscr;
    assign(ouv, 'XAU.INP');
    reset(ouv);
    assign(fer, 'XAU.OUT');
    rewrite(fer);
    
    readln(ouv, chaine);
    chaine := lowercase(chaine);
    
    for indi := 1 to length(chaine) do
        if chaine[indi] = ' ' then
            chaine[indi + 1] := upcase(chaine[indi + 1]);
    chaine[1] := upcase(chaine[1]);
    
    write(fer, chaine);
    close(ouv);
    close(fer);
end.

`" "`

`*` Chuyển toàn bộ các kí tự trong xâu thành kí tự thường

`*` Chuyển kí tự sau kí tự trống thành chữ cái in hoa tương ứng

`*` Chuyển kí tự đầu tiên thành kí tự in hoa