Дан текст. Найти количество букв "К". По правилам машинописи после знаков

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

Задать свой вопрос
Саламахин Владик
Текст:"По правилам машинописи после символов препинания этих ошибок в тексте, полученную после исправления строкупоказать на экране."?
1 ответ
Var s:string;
k:integer;
begin
k:=0;
s:='По правилам машинописи после символов препинания этих ошибок в тексте, полученную после исправления строчку показать на экране.';
while pos('к',s)lt;gt;0 do
 begin;
  delete(s,pos('к',s),1);
  inc(k);
 end;
writeln(k);
end.

Ответ:6
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт