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

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

Пример:
Введите строку: 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 году и у тех учителей, кто учит так писать, знание программирования застряло в тех годах )))

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

Другие предметы

1 год назад

Важливі життєві істини за баладою король лір та його дочки

Литература

1 год назад

Записати складники біблії

Українська мова