Контрольное задание №6-4 / 6-4

Опишите множество M1 (1,2,3,4) и M2 (3,4,1). Получите результирующее множество M3 = M1- M2. Определите, имеется ли в M3 элемент 2

Название программы следует после служебного слова program, программа называется Mnozestvo. После слова var, перечисляются множества, используемые в данной программе m1, m2, m3 и задается сколько элементов может входить в каждое из имеющихся множеств. Программа начинается после слова begin. Сначала мы вносим значения в множество m1, затем в множество m2. Далее определяем результирующее множество m3:=m1-m2. Теперь идет проверка на наличие в множество m3 элемента 2. Если данный элемент присутствует, то на экран выводится 'est`'. В противном случае выводится 'net'. Далее с помощью процедуры readln курсор переходит на новую строчку и программа.

program Mnozestvo;

var

m1: set of 1..4;

m2: set of 1..3;

m3: set of 1..4;

begin

m1:=[1,2,3,4];

m2:=[3,4,1];

m3:=m1-m2;

if 2 in m3 then writeln('est`') else writeln('net');

readln;

end.