Множества на Паскаль

[jemson]

1. Вычислите значения выражения [1..6]+[3..8].
2. Даны 3 множества Х1, Х2, Х3, содержащие целые числа из диапазона 1..100. Мощность
каждого множества равна 10. Сформировать новое множество Y=(X1ÈX2) Ç (X1\X3), из
которого выделить подмножество нечетных чисел. На экране вывести исходные и полученные
множества. Значения элементов исходных данных ввести с клавиатуры.
(Это одна задача огромная просьба не разбивать на 2е , спасибо за понимание! )

[Abstraction]

1. Вычислите значения выражения [1..6]+[3..8].

???
[1...8], наверное. Нет?

2. Даны 3 множества Х1, Х2, Х3, содержащие целые числа из диапазона 1..100. Мощность
каждого множества равна 10. Сформировать новое множество Y=(X1ÈX2) Ç (X1\X3), из
которого выделить подмножество нечетных чисел. На экране вывести исходные и полученные
множества. Значения элементов исходных данных ввести с клавиатуры.

Ваши наработки? Какого рода помощь Вам нужна?

[jemson]

var m,m1,m2:set of byte;
     i:byte;
begin
m1:=[1..6];
m2:=[3..8];
m:=m1+m2;
for i:=1 to 8 do
if i in m then write(i,' ');
readln
end.

Вот я начал что понял КАК ТО ТАК ,а дальше не знаю , я просто чайник в этом и не понимаю как это делать ,а задачи надо сдать.(( Очень нужна помощь !!! и Заранее Спасибо !!!




___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

Вот я начал что понял КАК ТО ТАК ,а дальше не знаю ,

а что, первую задачу Вы решили! и, в принципе - ПРАВИЛЬНО!

я бы только рекомендовал цикл сделать по всем ВОЗМОЖНЫМ значениям элементов множества, это намного надёжнее и универсальнее:

   m:=m1+m2;
   for i:=0 to 255 do
      if i in m then write(i,' ');
   readln

Сформировать новое множество Y=(X1ÈX2) Ç (X1\X3),

во-первых, дайте запись в виде формулы (можно картинкой, можно в LaTex)
во-вторых, расшифруйте формулу (раз Вам такое задание дали, значит Вы теорию множеств уже проходили, должны знать, что данная формула означает!

[jemson]

Спасибо за рекомендацию!!!