Question

Опишите множества М1(1,2,3) и М2(1,4,2,5). Получите результирующее множество М3 = М1*М2. Определите, имеются ли в М3 элементы 1 и 2 ? Язык Паскаль.

Answer 1

Var
  M1, M2, M3 :set of 0..9;
  i:integer;
begin
  M1 := [1, 2, 3];
  M2 := [1, 4, 2, 5];
  M3 := M1 * M2;
  write('Результат: ');
  for i:=0 to 9 do
    if i in M3 then write(i)
    else write('*');
  writeln
end.

Тестовое решение:

Результат: *12*******

Answer 2

Описание множеств и операция умножения

Множество M1 содержит элементы (1, 2, 3), а множество M2 содержит элементы (1, 4, 2, 5). Результирующее множество M3 после операции умножения (обозначается как M1*M2) будет содержать все возможные комбинации элементов из M1 и M2.

Результат умножения множеств

Результирующее множество M3 будет содержать следующие элементы: (1, 1), (1, 4), (1, 2), (1, 5), (2, 1), (2, 4), (2, 2), (2, 5), (3, 1), (3, 4), (3, 2), (3, 5).

Проверка наличия элементов 1 и 2 в М3

Да, в результирующем множестве M3 присутствуют элементы 1 и 2