Решите задачу в Паскале Есть строка из произвольного количества слов, которая...

Question

Решите задачу в Паскале Есть строка из произвольного количества слов, которая начинается не с пробела и заканчивается не пробелом, между словами один пробел. Найти и вывести на экран слово минимальной длины(если таких слов несколько, вывести первое по порядку) Пример: Введите строку: asa qwerty u zzz qq Результат: u – слово мин.длины (1 имвол)​

Answer 1

// PascalABC.NET

begin

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

end.

---

Comments

Потому что ответы могуть быть от двух человек.

---

PascalABC. Это является одной из разновидностей?

---

Нет. Потому что нет такой разновидности. Есть Pascal ABC (через пробел) и PascalABC.NET (без пробела, но с .NET)

---

Значит у меня PascalABC.NET

---

Худший для Вас вариант, если учитель заставляет писать в PascalABC.NET, но использует подмножество языка Turbo Pascal, с которым имеется совместимость.

---

В этом случае Вас спасет только фрагмент-образец первых 5-10 строк любой написанной учителем программы. По нему можно понять, о чем ресь.

---

*речь

---

Если это что-то типа

program vasya;
var x: integer;
a: array[1..100] of integer;
begin

можно смело просить код для Turbo Pascal

---

Да, вот у нас все програмы на это похожи

---

Так писали в 1974 году и у тех учителей, кто учит так писать, знание программирования застряло в тех годах )))