Дана строка, содержащая английский текст. Найти количество слов, начинающихся с буквы d.

Question

Информатика

Лена

28 января, 06:37

Дана строка, содержащая английский текст. Найти количество слов, начинающихся с буквы d.

+3

Ответы (1)

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

Шушаника · Answer 1

Var

s: string;

p, nb: integer;

begin

write ('text? ') ;

readln (s) ;

p : = 1;

while p < = length (s) do begin

while (s[p] = ' ') and (p < = length (s)) do inc (p) ;

if (p < = length (s)) and (s[p] = 'b') then inc (nb) ;

while (s[p] ' ') and (p < = length (s)) do inc (p) ;

end;

write ('num words: ', nb) ;

end.