Дан текст. определить количество букв "к". по правилам машинописи после знаков препинания этих ошибок в тексте, полученную после исправления строку показать на экране. 80 !

BOULEVARDDEPO111 BOULEVARDDEPO111    3   14.07.2019 22:30    2

Ответы
Андрюша1789 Андрюша1789  30.08.2020 17:58
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
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика