viết chương trình nhập từ bàn phím 1 xâu kí tự S đếm số lượng kí tự B trong xâu S ( không phân biệt chữ hoa và chữ thường)

0 bình luận về “viết chương trình nhập từ bàn phím 1 xâu kí tự S đếm số lượng kí tự B trong xâu S ( không phân biệt chữ hoa và chữ thường)”

1. program Xau;
   uses CRT;
   var      s: string;
          i,d: byte;
   begin
         clrscr;
        
         write(‘Nhap xau S: ‘);readln(s);
        
         for i:=1 to length(s) do
        
             If s[i] = ‘b’ then d:=d+1 else
            
             If s[i] = ‘B’ then d:=d+1;
            
         write(‘SL ki tu b la: ‘,d);
        
   readln;
   end.

   Bình luận