Дана строка. Подсчитать количество слов, начинающихся с буквы Б

Question

Информатика

Афиноген

26 декабря, 12:41

Дана строка. Подсчитать количество слов, начинающихся с буквы Б

+1

Ответы (1)

Знаете ответ на вопрос?

Стеша · Answer 1

Program zadacha;

var

s: string;

i, k, l: integer;

begin

k:=0;

read (s) ;

l:=length (s) ;

for i:=1 to l do

begin

if s[i]='б' then

inc (k) ;

end;

write (k) ;

end.