Question

С клавиатуры вводится строка, состоящая из слов. Слово - это любой набор символов кроме пробела. Количество пробелов в начале и конце строки, а также между словами - любое. Поменять в строке все слова "минус". на слова "плюс" В программе должна быть процедура.

Answer 1

// PascalABC.NET 3.4.2, сборка 1785 от 06.09.2018

// Внимание! Если программа не работает, обновите версию!

procedure Заменаслова(var Строка: string);

begin

 Строка := Строка.ToWords.Select(Слово -> Слово = 'минус' ? 'плюс' : Слово)

     .JoinIntoString

end;

begin

 var МояСтрока := ReadlnString;

 ЗаменаСлова(МояСтрока);

 МояСтрока.Println

end.