Регистрация
yuriayato
04.01.2021 07:04
Информатика
Есть ответ 👍

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

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

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

269
278
Посмотреть ответы 2

Ответы на вопрос:

9Mesut8
9Mesut8
4,5(9 оценок)

// PascalABC.NET

begin

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

end.

ПолинаРыжкова3
ПолинаРыжкова3
4,6(98 оценок)
Dim s, s1, s0, t as string           'строка, первая буква слова, слово, список нужных слов s = inputbox("введите строку: ") do     do         n = n + 1         if s1 = "" then s1 = mid(s, n, 1)             'запоминаем первую букву слова         if mid(s, n, 1) = s1 then m = m + 1       'считаем, сколько раз она встретилась         s0 = s0 & mid(s, n, 1)                             'запоминаем слово         if n > len(s) then exit do     loop while mid(s, n, 1) < > " " if m = 1 then t = t & s0                                   'переносим слово в список m = 0                       'сбрасываем промежуточные переменные в исходное состояние s1 = "" s0 = "" loop until n > len(s) if t = "" then t = "искомых слов нет" msgbox (t)

Популярно: Информатика