Помогите с кодом, пожалуйста... Дан текст произвольной длины, оканчивающий точкой. Текст состоит из слов, разделенных проблемами
Помогите с кодом, пожалуйста... Дан текст произвольной длины, оканчивающий точкой. Текст состоит из слов, разделенных проблемами. Подсчитать: Количество слов, начинающихся с буквы К.
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.
По задаче у кощея 27360 сундуков, каждый год прибавляется по 33 сундука, василиса пообещала, что выйдет замуж за кощея когда у него будет 30000 сундуковс золотом.