RosettaCodeData/Task/Twos-complement/XPL0/twos-complement.xpl0

9 lines
112 B
Plaintext

int I; char C;
[I:= 123;
I:= (~I) + 1;
IntOut(0, I); CrLf(0);
C:= -123;
C:= ~(C-1);
IntOut(0, C); CrLf(0);
]