Дан текст. Определить количество букв "К". По правилам машинописи после знаков препинания этих ошибок в тексте, полученную после исправления строку показать на экране. ДАЮ 80 БАЛЛОВ!
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
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
