40.Дана строка, содержащая английский текст; слова разделены пробелами. Найти количество слов, начинающихся с буквы b.

Решение

program lab40;

type mas=array[1..100] of string;

var

  s,sr:string;

  i,f,k:integer;

  m:mas;

procedure sl(s:string; var m:mas);

begin

 sr:=''; k:=1;

 for i:=1 to length(s) do

  if s[i]<>' ' then sr:=sr+s[i]

  else

    begin

      m[k]:=sr;

      k:=k+1;

      sr:='';

    end;

  m[k]:=sr;

end;

 

begin

writeln('Vvedite stroku');

readln(s);

sl(s,m);

for i:=1 to k do

     begin

      sr:=m[i];

      f:=0;

      if (sr[1]='b') or (sr[1]='B') then

      f:=1;

      if f=1 then writeln(m[i]);

      end;

end.