Вводится текст из слов, между которыми пробел, и отдельное слово. Слова текста,...

0 голосов
62 просмотров

Вводится текст из слов, между которыми пробел, и отдельное слово. Слова текста, содержащие первую или последнюю букву введенного слова, заменить введенным словом


Информатика (60 баллов) | 62 просмотров
Дан 1 ответ
0 голосов
Правильный ответ
// PascalABC.NET 3.3, сборка 1579 от 18.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var s:=ReadlnString('Введите строку слов:');
  var w:=ReadlnString('Введите слово для замены:');
  var (fc,lc):=(w.First,w.Last);
  s:=s.ToWords.Select(v->(Pos(fc,v)>0) or (Pos(lc,v)>0)?w:v)
      .JoinIntoString;
  Writeln(s)
end.

Пример
Введите строку слов: Наша Таня громко плачет уронила в речку мячик
Введите слово для замены: удалено
Наша Таня удалено плачет удалено в удалено мячик
(150k баллов)
0

А можно как-нибудь полегче? Мы это не проходили ещё.