zsx 2009-09-16 08: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.