cho xâu st nhập từ bàn phím yêu cầu +in hoa kí tự đầu tiên của từ +đếm kí tự (B) xuất hiện trong xâu kí tự

0 bình luận về “cho xâu st nhập từ bàn phím yêu cầu +in hoa kí tự đầu tiên của từ +đếm kí tự (B) xuất hiện trong xâu kí tự”

1. var s: string;

       d: byte;

   Begin

       Write(‘nhap xau: ‘); readln(s);

       D:=0;

       For i:=1 to length(s)-1 do

           If (s[i]=’ ‘) and (s[i+1]<>’ ‘)

           Then s[i+1]:=upcase(s[i+1]);

       For i:=1 to length(s) do if s[i]=’B’ 

           Then inc(d);

       Writeln(‘xau sau khi in hoa: ‘, s);

       Write(‘ki tu “B” xuat hien ‘, d, ‘ lan’);

       Readln

   End.

   Bình luận

2. var stri,strkq: string; i,z: byte;
   begin
       write(‘Nhap mot chuoi: ‘);
       readln(stri);
       
       for i:=1 to length(stri) do
       begin
           if (i = 1) then strkq:=strkq+upcase(stri[i]) else strkq:=strkq+stri[i];
           if (stri[i] = ‘B’) then inc(z);
       end;
       
       writeln(‘Chuoi da in hoa ki tu dau la: ‘,strkq);
       writeln(‘So luong chu B: ‘,z);
       readln;
   end.

   Bình luận