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

Опишите множества М1(1,2) и М2(5,6). Получите результирующее множество М3=М1+М2. Определите, имеется ли в М3 элемент 7.

После слова program пишется название программы: “Mnozhestva”. После слова var задаём массивы посредством строк: m1: set of 1..2; m2: set of 1..2; m3: set of 1..4. Затем, после слова begin вносим значения массивов: m1:=[1,2]; m2:=[5,6]. После того как мы имеем значения первого и второго массивов, можно, путём их сложения, найти массив m3. Далее мы должны проверить есть ли элемент 7 в массиве 3: if 7 in m3 then writeln('est`') else writeln('net'). Т.е. в это йстроке указано, что если элемент 7 в массиве есть, то на экране появляется надпись 'est`', в обратном случае - 'net'. Далее следует пропуск строки и команда end завершает программу.

program Mnozhestva;

var

m1: set of 1..2;

m2: set of 1..2;

m3: set of 1..4;

begin

m1:=[1,2];

m2:=[5,6];

m3:=m1+m2;

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

readln;

end.