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

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*******