讨论 / 为什么错了?
zsx 2009-09-16 23:37:00
点我顶贴 收藏 删除
var a,b:int64;

i,x:longint;

st:string;

begin

read(a,b);

if a<b then begin write(’-’);str(b-a,st);end

else str(a-b,st);

for i:=length(st) downto 1 do begin inc(x);

if x mod 3=0 then insert(’,’,st,i);end;

write(st);

end.

#1 webeskycn@2009-09-16 23:37:00
回复 删除
高精度吧?

- -!

查看更多回复
提交回复