Решите Даны множества А = {0, 1, 2, 3, 4, 5} и В = {0, 2, 4, 6, 8}. Перечислите элементы, образующие множество C=A∪B. Изобразите множества А, В и С графически.
2. Даны множества А = {0, 1, 2, 3, 4, 5} и В = {0, 2, 4, 6, 8}. Перечислите элементы, образующие множество C=A∩B. Изобразите множества А, В и С графически.
3. Даны множества А = {0, 1, 2, 3, 4, 5} и В = {0, 2, 4, б, 8}. Перечислите элементы, образующие множество С=В\А. Изобразите множества А, В и С графически.
4. В одном множестве 20 элементов, в другом — 50. Какое максимальное количество элементов может быть в их пересечении?
2 ) В данной статье приведены практические рекомендации, комплексы упражнений и различные меры, благодаря которым человек, работающий за компьютером может сам, собственными усилиями, нейтрализовать отрицательное воздействие компьютера на организм зрению, мышечной и опорно-двигательной системе справиться со значительными статическим нагрузками.
При условии внимательного отношения к своему здоровью - вам удастся избежать проблем с онемением пальцев рук из-за т.н. "туннельного синдрома", серьезных дегенеративно-дистрофических изменений шейного отдела позвоночника и многих других, которые в первую очередь не позволят вам работать... за компьютером. Ну а для основной массы интеллигентного населения - это беда, последствия которой известны...
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(12,0,50); a.Println;
var m:=a.Average;
Write('Элементы, меньшие среднего значения: ');
Writeln('Таких элементов ',a.Where(x->x<m).Println.Count)
end.
Пример
34 12 5 35 29 15 23 22 41 27 12 36
Элементы, меньшие среднего значения: 12 5 15 23 22 12
Таких элементов 6
begin
var a:=ArrRandom(13,0,100); a.Println;
Write('Элементы, меньшие 50: ');
Writeln('Таких элементов ',a.Where(x->x<50).Println.Count)
end.
Пример
25 17 68 71 27 37 83 32 63 87 29 12 34
Элементы, меньшие 50: 25 17 27 37 32 29 12 34
Таких элементов 8