Что такое множество?

[ZhekON]

Люди помогите плиз! Я незнаю что такое множество и как оно записываетсо... нигде с таким не сталкивалса... вобщем вот есть задание :

Задано множество целых чисел от 1 до 255. Получить из этого множества новое множество, в котором отсутствуют числа, кратные 3

я так думаю здесь кодить нужно максимум 10 минут вот только я незнаю что из себя представляет множество в паскале и как его записывать??
если незнаете как делатЬ то буду рад и простому обяснению...
ГЛАВНОЕ ЧТОБЫ Я ПОНЯШ ШО ЕТО ТАКОЕ И КАК ЕГО ИСПОЛЬЗОВАТЬ)
СПАСИБО ЗА ВНИМАНИЕ!

[alexBlack]

var  M:Set Of Byte;
begin
   M := [];       // Пустое
   M := [5,6,7]; // из трех элементов
   include(M, 8); // Добавить элемент
   exclude(M, 7); // исключить элемент
   if 6 in M then {};  // содержится в множестве

----------
И самое главное для этой задачи

M := [1..255] - множество целых от 1 до 255

[ZhekON]

а что значит : Задано множество целых чисел от 1 до 255 ???
ето любые числа?? типа можна ввести 342 и include(M,342);
и оно увеличит розмер множества на один член который будет равен 342?
или как розпологаютса значения в множестве? не обезательно вить там должно быть по порядку(как вы написали M := [5,6,7])
и как узнать количество членов в множестве?

[alexBlack]

Сообщение от ZhekON

а что значит : Задано множество целых чисел от 1 до 255 ???

Множество содержит числа от 1 до 255.

ето любые числа?? типа можна ввести 342 и include(M,342);
и оно увеличит розмер множества на один член который будет равен 342?

Любые в диапазоне byte. Внутреннее представление Set в Pascal - 32 байта. Каждый бит - наличие и отсутствие элемента множества.

или как розпологаютса значения в множестве? не обезательно вить там должно быть по порядку(как вы написали M := [5,6,7])

Множество по определению не упорядоточено. Элементы там либо есть, либо их нет. Добавлять можно в любом порядке. Все равно порядок элементов теряется.

и как узнать количество членов в множестве?

Честно говоря не задавался этим вопросом. ИМХО только так:

C := 0
for i:=0 to 255 do 
  if i in M then inc(C);