Question

Sa se elaboreze un program in limbajul Pascal care determina numarul de aparitii ale caracterului "B" intr-un sir. Surul este introdus de la tastatura de catre programator?????

Answer 1

var s:string;
i,c:integer;

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