17. В строке заменить все пробелы ** «_», посчитать количество замененных символов....

Question

17. В строке заменить все пробелы на «_», посчитать количество замененных символов. паскаль

Answer 1

Var
  S: string;
  i: integer;
begin
  write('Введите строку:'); readln(S);
  for i := 1 to Length(S) do
    if S[i] = ' ' then S[i] := '_';
  writeln(S);
readln;
end. 

---