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

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

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

Ответы

Ответ дал: BobbyFresnel

// PascalABC.NET

begin

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

end.

Приложения:

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

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

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

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

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

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

BobbyFresnel: *речь

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

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

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

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

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

Вас заинтересует

Алгебра

2 месяца назад

36. Розв'яжіть рівняння: 1) 5/9 * x = 1 2) - 3x = 6/7 3) - 1, 4x = - 2, 1 ; 4) - 1/6 * x = 6 СРОЧНО

Химия

2 месяца назад

Виписати окремо оксиди, кислоти, основи та солі: Вправа 2 НI, ZnSO4, AICI Fe(OH)3 Be(OH)₂2 K₂S ZnCl₂ KOH Ca3(PO4)2 NaOH Mg(OH)2 Na2SO4 SO3 K3PO4 Fe(OH)2 Fe2O3 Cr₂O3 HBr Fe2(SO4)3 P2O5 Pb(NO3)2

Физика