Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

Помогите с кодом, пожалуйста...
Дан текст произвольной длины, оканчивающий точкой. Текст состоит из слов, разделенных проблемами. Подсчитать:
Количество слов, начинающихся с буквы К.

Ответ оставил Гость

Var
  c:char;
  k:integer;
  FlagBlank:boolean;
begin
  Read(c);
  case c of
  К,к:begin k:=1; FlagBlank:=True end;
  :begin k:=0; FlagBlank:=False end;
  .:k:=0;
  else begin k:=0; FlagBlank:=True end
  end;
  while c<>. do begin
    while (not FlagBlank) and (c<>.) do
    begin Read(c); FlagBlank:=(c= ) end;
    while Flagblank and (c<>.) do
    begin Read(c); FlagBlank:=(c= ) end;
    if UpCase(c)=К then Inc(k);
  end;
  Writeln(k);
end.