Question

Дан текст. Определить количество букв "К". По правилам машинописи после знаков препинания этих ошибок в тексте, полученную после исправления строку показать на экране. ДАЮ 80 БАЛЛОВ!

Answer 1

var s:string;
k:integer;
begin
k:=0;
s:='По правилам машинописи после знаков препинания этих ошибок в тексте, полученную после исправления строку показать на экране.';
while pos('к',s)<>0 do
 begin;
  delete(s,pos('к',s),1);
  inc(k);
 end;
writeln(k);
end.

Ответ:6