pascalabcnet/TestSuite/set10.pas

begin
  var s1 := ['a'];
  var s := SetOf('a','b','c')-s1;
  assert('b' in s);
end.
-												Закончил превращение синтаксиса [] по умолчанию в массивы

											
										
										
											2024-12-10 10:59:20 +03:00
+								begin
-												bug fix #312

											
										
										
											2016-12-04 22:12:47 +03:00
+								  var s1 := ['a'];
-												Закончил превращение синтаксиса [] по умолчанию в массивы

											
										
										
											2024-12-10 10:59:20 +03:00
+								  var s := SetOf('a','b','c')-s1;
-												bug fix #312

											
										
										
											2016-12-04 22:12:47 +03:00
+								  assert('b' in s);
 								end.