Дан текст, содержащий не более 10 слов, из строчных российских букв,
Дан текст, содержащий не более 10 слов, из строчных русских букв, между примыкающими словами запятая, за заключительным словом - точка. Составить программы, в которых напечатать в алфавитном порядке:все гласные буквы, которые входят желая бы в одно слово более двух раз.(ласные буквы а, е, и, о, у, ы, э, ю, я; )
Задать свой вопрос
Степан Кириличенко
с по ошибке залезла
1 ответ
Геннадий
Было занимательно сделать все это в виде одного оператора)))
// PascalABC.NET 3.2, сборка 1439 от 09.05.2017
// Внимание! Если программка не работает, обновите версию!
begin
ReadlnString('-gt;').ToWords(Arr(',','.'))
.Select(w-gt;w.Where(c-gt;Pos(c,'аеёиоуыэюя')gt;0).GroupBy(x-gt;x)
.Select(x-gt;(x.Key,x.Count)).Where(x-gt;x[1]gt;2)).Where(x-gt;x.Countgt;0)
.SelectMany(x-gt;x).Select(x-gt;x.Item1).Distinct.OrderBy(x-gt;x)
.Println(',')
end.
Пример
-gt; дает,корова,молоко,длинношеее,животное,жираф,катамаран.
а,е,о
// PascalABC.NET 3.2, сборка 1439 от 09.05.2017
// Внимание! Если программка не работает, обновите версию!
begin
ReadlnString('-gt;').ToWords(Arr(',','.'))
.Select(w-gt;w.Where(c-gt;Pos(c,'аеёиоуыэюя')gt;0).GroupBy(x-gt;x)
.Select(x-gt;(x.Key,x.Count)).Where(x-gt;x[1]gt;2)).Where(x-gt;x.Countgt;0)
.SelectMany(x-gt;x).Select(x-gt;x.Item1).Distinct.OrderBy(x-gt;x)
.Println(',')
end.
Пример
-gt; дает,корова,молоко,длинношеее,животное,жираф,катамаран.
а,е,о
Юрка Скоропадюк
не то тут он только 3 буковкы выводит и 10 слов а не 7
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Игорь 14 лет назад был на 8 лет моложе, чем его
Математика.
Два тела массами m1 и m2 находящие на расстоянии R друг
Физика.
В сосуде 4целых одна пятая литр воды что бы заполнить сосуд
Математика.
Двум малярам Диме И Олегу поручили выкрасить фасад дома они разделили
Разные вопросы.
найти порядковый номер 41Э если в ядре 20 нейтронов
Разные вопросы.
в ряду натуральных чисел 3, 8, 10, 24, … 18 одно
Математика.
Предприятие по производству с/хоз продукции на производство затратило 3527000 руб Валовый
Разные вопросы.
Математика, задано на каникулы. ВАРИАНТ 1004
НОМЕР 1,2,3,4,5,6,7,8.
Математика.
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
Облако тегов