70576addb0
if (System.Environment.OSVersion.Version.Major >= 6) and (System.Environment.OSVersion.Version.Minor >= 2) then System.Console.OutputEncoding := Encoding.UTF8; School - таблица истинности - доп. параметр
6 lines
110 B
ObjectPascal
6 lines
110 B
ObjectPascal
begin
|
|
var a := Arr(1, 2, 3);
|
|
Assert(6 not in a);
|
|
Assert(4 not in a);
|
|
Assert(not (1 not in a));
|
|
end. |