Question

Помогите пожалуйста!
Дана строка, содержащая слова, разделенные одним или несколькими пробелами. Написать программу, заменяющую каждый пробел парой символов "!?". Паскаль

Answer 1

var
  s:string;  i:integer;begin
  readln(s);
  while (pos(' ',s)<>0) do
  begin
    i:=pos(' ',s);
    delete(s,i,1);
    insert('!?',s,i);
  end;
  writeln(s);
  readln;
end.

Answer 2

// PascalABC.NET 3.3, сборка 1627 от 27.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var s:=ReadlnString;
  s:=s.Replace(' ','!?'); s.Println
end.

Пример
Мама    мыла раму
Мама!?!?!?!?мыла!?раму