Viết chương trình xâu a) nhập độ dài của xâu b) đếm số B trong xâu Giải giúp mình với ạ

0 bình luận về “Viết chương trình xâu a) nhập độ dài của xâu b) đếm số B trong xâu Giải giúp mình với ạ”

1. program bai_tap;

   uses crt;

   var s:string;

         d,i:byte;

   begin

          write(‘Nhap xau: ‘);   readln(s);

          writeln(‘Do dai cua xau la: ‘,length(s));

          d:=0;

          for i:=1 to length(s) do

                 if s[i]=’B’ then d:=d+1;

          write(‘Co ‘,d,’ chu B trong xau’);

          readln;

   end.

   Bình luận