摘要：
心血来潮花了一上午做了这道恶心死人的高精度。展示一下打了各种补丁的程序。type gj=record len:longint; data:array[1..1000]of longint; end;const num:array[0..3]of integer=(1,10,100,1000);var x,ans:gj; c:char; s:string; n,i,len,L:longint; flag:boolean;procedure change(var x:gj);var i,j:longint;begin j:=0; fillch... 阅读全文