// 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.
// Внимание! Если программа не работает, обновите версию!
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