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

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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.