mirror
/
RosettaCodeData
mirror of https://github.com/acmeism/RosettaCodeData.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity
RosettaCodeData/Task/Twos-complement/ALGOL-W/twos-complement.alg

6 lines
108 B
Plaintext
Raw Permalink Blame History

begin
integer a;
a := 3;
write( i_w := 1, s_w := 1, -a, 1 + number( not bitstring( a ) ) )
end.
Reference in New Issue View Git Blame Copy Permalink