程序：

var n,t,f:longint; zfc:string; beginassign(input,'negii.in');reset(input);assign(output,'negii.out');rewrite(output);readln(n);if n=0 then writeln('0');t:=n;zfc:='';while t<>0 dobeginf:=t mod (-2);if f=-1 then begin t:=t-1; f:=1; end;t:=t div (-2);zfc:=chr(f+48)+zfc;end;writeln(zfc);close(input);close(output); end.

轉載于:https://www.cnblogs.com/YYC-0304/p/9500042.html

總結

以上是生活随笔為你收集整理的2017年10月05日普及组 负进制的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。