谁可以给我一套完整的、正确的高精度的程序?(pascal)答:ji[i]:=ji[i] mod 10;end;while e>0 do begin inc(h);ji[h]:=e mod 10;e:=e div 10;end;if v=-1 then write('-');for i:=h downto 1 do write(ji[i]);writeln;end.var {高精度除法} b,s,t,ans,yu:string;r:ansistring;a,c,d,e,f,g,h,i,j,k,m,n,zs,zt:...