Question

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

Answer 1

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.