pascalabcnet/TestSuite/set9.pas

11 lines
239 B
ObjectPascal
Raw Permalink Normal View History

2016-03-20 16:23:41 +03:00
begin
var s: set of integer := [1,2,3];
var hs: HashSet<integer>;
hs := s;
assert(3 in hs);
hs.Println;
var set1: set of integer := hs;
assert(2 in set1);
2016-04-14 21:16:31 +03:00
var h: HashSet<integer> := [1,3,5];
assert(3 in h);
2016-03-20 16:23:41 +03:00
end.