RosettaCodeData/Task/Twos-complement/PascalABC.NET/twos-complement.pas

6 lines
56 B
ObjectPascal
Raw Permalink Normal View History

2024-07-13 15:19:22 -07:00
begin
var x := 56;
x := not x + 1;
Print(x);
end.