RosettaCodeData/Task/Twos-complement/ALGOL-68/twos-complement.alg

5 lines
79 B
Plaintext

BEGIN
INT a := 3;
print( ( -a, " ", 1 + ABS NOT BIN a, newline ) )
END