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

В строке заменить все двоеточия (:) точкой с запятой (;). Подсчитать количество замен.

Нужно пройти по строке посимвольно. Если встречается символ $$:$$, заменить его на $$;$$ и увеличить счётчик замен на 1. В конце вывести изменённую строку и количество замен.

var
s: string;
i, k: integer;
begin
  k := 0;
  readln(s);
  for i := 1 to length(s) do
    if s[i] = ‘:’ then
    begin
      s[i] := ‘;’;
      inc(k);
    end;
  writeln(s);
  writeln(k);
end.

Ответ

В строке все двоеточия заменяются на точку с запятой, количество замен выводится в переменной $$k$$.