Question

Решите задачу в Паскале

Есть строка из произвольного количества слов, которая начинается не с пробела и заканчивается не пробелом, между словами один пробел. Найти и вывести на экран слово минимальной длины(если таких слов несколько, вывести первое по порядку)

Пример:
Введите строку: asa qwerty u zzz qq
Результат: u – слово мин.длины (1 имвол)​

Answer 1

// PascalABC.NET

begin

 ReadString.ToWords.MinBy(p -> Length(p)).Print

end.