Дана строка, содержащая текст. необходимо подсчитать количество слов, начинающихся с буквы b. программа netbeans. java.

ответ:

pascalвыделить код

1

2

3

4

5

6

7

8

9

10

11

var s: string;

k,i: byte;

begin

write('введите строку: '); readln(s);

insert(' ',s,1); k: =0;

for i: =1 to length(s)-1 do

if s[i] in [' ','-',','] then

if s[i+1]='b' then inc(k);

if k> 0 then writeln('слов начинающихся на "b": ',k)

else writeln('нету слов начинающихся на "b"');

end.