Viết ct nhập vào 1 xâu có độ dài tối đa 100 kí tự In ra màn hình câu vừa nhập sao cho _ kí tự đầu tiên là in hoa -và kí tự sau dấu cách cũng là

0 bình luận về “Viết ct nhập vào 1 xâu có độ dài tối đa 100 kí tự In ra màn hình câu vừa nhập sao cho _ kí tự đầu tiên là in hoa -và kí tự sau dấu cách cũng là”

1. program LN;
   uses crt;
   var s,s1:string;
       i:integer;
        begin
        clrscr;
     writeln(‘nhap vao 1 xau bat ki: ‘);
     readln(s);
     s[1]:=upcase(s[1]);
   for i:= 1 to length(s) do
           if s[i] = ‘ ‘ then s[i+1]:= upcase(s[i+1]);
     write(‘xau sau khi da chinh sua la: ‘,s);
   readln;
   end.

   Bình luận

2. program LN;
   uses crt;
   var s,s1:string;
       i:integer;
   begin
   clrscr;
   writeln(‘nhap vao 1 xau bat ki: ‘);
   readln(s);
   s[1]:=upcase(s[1]);
   for i:= 1 to length(s) do
           if s[i] = ‘ ‘ then s[i+1]:= upcase(s[i+1]);
   write(‘xau sau khi da chinh sua la: ‘,s);
   readln
   end.

   Bình luận