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

Question

Информатика

Павлуша

19 августа, 09:30

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

+2

Ответы (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.