👤

Sa se elaboreze un limbaj Pascal care determina numarul de aparitii ale caracterului "B" intr-un sir.Sirul este introdus de la tastatura de catre programator.
Ajutati-ma va rog frumos.


Răspuns :

var s:string;
i,c:integer;

begin
  read(s);
  c:=0;
  for i:=1 to length(s) do
    if (s[i]='B') then c:=c+1;
  write(c);
end.