Было занятно сделать все это в виде одного оператора)))

// PascalABC.NET 3.2, сборка 1439 от 09.05.2017
// Внимание! Если программа не работает, обновите версию!

begin
ReadlnString('->').ToWords(Arr(',','.'))
 .Select(w->w.Where(c->Pos(c,'аеёиоуыэюя')>0).GroupBy(x->x)
 .Select(x->(x.Key,x.Count)).Where(x->x[1]>2)).Where(x->x.Count>0)
 .SelectMany(x->x).Select(x->x.Item1).Distinct.OrderBy(x->x)
 .Println(',')
end.

Пример
-> дает,корова,молоко,длинношеее,животное,жираф,катамаран.
а,е,о

0 0

1 год назад

. В таблице приведены запросы и количество страниц, которые нашел поисковый сервер по этим запросам в некотором сегменте Интерне

sharudawn

Нужно сложить Фреграт и эсминец и вычесть из этого фрегат & эсмнинец
2000 +2500 - 500 = 4000 стр

0 0

4 года назад

Рассчитайте объём видеопамяти, необходимой для хранения графического изображения, занимающего весь экран монитора с разрешением

Алексей-39

Значит так. 256 цветов - 256 вариантов. 256= 2^8 - каждый кодируется 8 битами, или же 1 байтом (продолжим решать в байтах). Всего на мониторе 640х480=307200 пикселей => нужно 307200 байт памяти

0 0

1 год назад