Question

Сформировать множества А и В, базовый тип которых 0..50 , по заданному числу элементов для каждого множества. Вывести на экран все элементы множества А, не принадлежащие В.

Answer 1

// PascalABC.NET 3.4.2, сборка 1806 от 30.09.2018

// Внимание! Если программа не работает, обновите версию!

begin

 var (na,nb):=ReadInteger2('Мощность множеств A и B:');

 var A,B:set of integer;

 repeat

   A+=[Random(0,50)]

 until A.Count=na;

 A.Println;

 repeat

   B+=[Random(0,50)]

 until B.Count=nb;

 B.Println;

 (A-B).Println

end.