RosettaCodeData/Task/Twos-complement/XPL0/twos-complement.xpl0
2023-07-01 13:44:08 -04:00

8 lines
112 B
Text

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