Работа 3.8 Упр.5 ГДЗ Семакин 10 класс (Информатика)

Задача

В строке удалить символ двоеточие (:) и подсчитать количество удаленных символов.

Подробный ответ

Нужно удалить из строки все символы двоеточия $$:$$ и одновременно подсчитать, сколько раз они встретились.

Для этого удобно использовать цикл: пока в строке находится символ $$:$$, находим его позицию функцией pos, удаляем один символ функцией delete и увеличиваем счётчик на $$1$$.

var
s: string;
k: byte;
begin
  readln(s);
  k := 0;
  while pos(‘:’, s) <> 0 do
  begin
    delete(s, pos(‘:’, s), 1);
    k := k + 1;
  end;
  writeln(s);
  writeln(‘k=’, k);
end.

После завершения цикла в строке не останется символов $$:$$, а переменная $$k$$ будет содержать их количество.