Gleb1Kosyrev

Verified answer

//Pascal ABC.NET 3.1 сборка 1219

Var
 s:string;
 k,i:integer;
begin
k:=0;
readln(s);
var ars:=s.Split;
for i:=0 to ars.Length-1 do
if (ars[i][1]='б') or (ars[i][1]='Б') then inc(k);
writeln(k);
end.

Пример ввода:
Большой бейсбольный мяч
Пример вывода:
2