Среди слов найдите самое короткое и удалите в нем "oo" (буквы идут подряд)

name64 name64    2   10.09.2019 22:20    0

Ответы
sashunyakotova sashunyakotova  07.10.2020 06:13
// PascalABC.NET 3.3, сборка 1573 от 04.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var st:='balloon duster tooth loot cooperation'; // не вводим
  // var st:=ReadlnString; // если хочется вводить
  var s:=st.ToWords; // массив из слов s[i]
  s.Println; // показать исходный массив слов
  // собственно решение
  var i:=s.Select(w->w.Length).ToArray.IndexMin; // индекс короткого слова
  s[i]:=s[i].Replace('oo','');
  s.Println; // результат
end.

Результат
balloon duster tooth loot cooperation
balloon duster tooth lt cooperation
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика