Data update

Task/Gray-code/PascalABC.NET/gray-code.pas

@@ -0,0 +1,18 @@
+uses School;
+
+function GrayEncode(n: longword): longword := n xor (n shr 1);
+
+function GrayDecode(n: longword): longword;
+begin
+  Result := 0;
+  while n > 0 do
+  begin
+    Result := Result xor n;
+    n := n shr 1;
+  end;
+end;
+
+begin
+  for var i := 0 to 31 do
+    Writeln($'{i,-7} {Bin(i),-7} {Bin(grayEncode(i)),-7} {grayDecode(grayEncode(i)),-7}');
+end.