Question

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

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.

Answer 2

Спасибо большое:)

Answer 3

Ой да ладно)