vct chuẩn xóa xâu s loại bỏ các kí tự cách thừa trong xâu kí tự đầu tiên của từ được viết hoa còn lại viết thường giải dùm em với mọi người

0 bình luận về “vct chuẩn xóa xâu s loại bỏ các kí tự cách thừa trong xâu kí tự đầu tiên của từ được viết hoa còn lại viết thường giải dùm em với mọi người”

1. uses crt;
   var s:string;
       i:longint;
   begin
   clrscr;
   write(‘Nhap xau: ‘);readln(s);
   while s[1]=’ ‘ do delete(s,1,1);
   while s[length(s)]=’ ‘ do delete(s,length(s),1);
   while pos(‘  ‘,s)<>0 do delete(s,pos(‘  ‘,s),1);
   s[1]:=upcase(s[1]);
   for i:=1 to length(s) do
   if s[i]=’ ‘ then s[i+1]:=upcase(s[i+1]);
   writeln(‘Xau chuan hoa: ‘,s);
   readln;
   end.

   Trả lời