Data commit

Task/Logical-operations/Action-/logical-operations.action

@@ -0,0 +1,24 @@
+BYTE FUNC Not(BYTE a)
+  IF a=0 THEN
+    RETURN (1)
+  FI
+RETURN (0)
+
+PROC Main()
+  BYTE a,b,res
+
+  FOR a=0 TO 1
+  DO
+    FOR b=0 TO 1
+    DO
+      res=a AND b
+      PrintF("%B AND %B=%B",a,b,res)
+      res=a OR b
+      PrintF("|%B OR %B=%B",a,b,res)
+      res=a ! b
+      PrintF("|%B XOR %B=%B",a,b,res)
+      res=Not(a)
+      PrintF("|NOT %B=%B%E",a,res)
+    OD
+  OD
+RETURN