第二个数据没通过的，一定要考虑两个数相等的情况！否则会无输出！

取绝对值的过程要手工模拟：

if a>b then c:=a-b

else c:=b-a;

a，b用int64，ans用qword，好思想！

为啥第二组数据总是超时呀

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：运行超时|无输出...

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Unaccepted 有效得分：99 有效耗时：0ms

强烈建议BS此题！！！我交了10次都这个错误。。fuck

var a,b:int64;

var i:integer;

var s:ansistring;

var f:boolean;

begin

read(a,b);

if a-b>=0 then str(a-b,s) else begin f:=true; str(abs(a-b),s);end;

if f=true then write('-');

for i:=1 to length(s) do if ((length(s)-i) mod 3 = 0) and (length(s)i) then write(s[i]+',') else write(s[i]);

end.

为什么错了?

汗...通过 　　538人..-_-||| ..第一次分类讨论的复杂死...99分....后来直接大数减小数...100....AC...

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案错误...程序输出比正确答案长

---|---|---|---|---|---|---|---|-

Unaccepted 有效得分：99 有效耗时：0ms

........

用 C怎么做啊！最多INT64还会爆

没QWORD 没LONG LONG 我考

逼我高精吗？

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

一开始直接c:=abs(a-b);

不知道为什么没通过，就老老实实了，附上源程序：

Program P1372;

var a,b,c:qword;

k,i,j,n,m:longint;

s,s1,s2:string;

p1,p2:boolean;

Begin

readln(s);

m:=pos(' ',s);

s1:=copy(s,1,m-1);

s2:=copy(s,m+1,length(s)-m);

if s1[1]='-' then begin p1:=false; delete(s1,1,1); end

else p1:=true;

if s2[1]='-' then begin p2:=false; delete(s2,1,1) end

else p2:=true;

val(s1,a); val(s2,b);

if (a=0) and (b=0) then begin writeln('0'); halt; end;

if not p1 and p2 then write('-');

if not p1 and not p2 and (a>b) then write('-');

if p1 and p2 then c:=a-b;

if not p1 and p2 then c:=a+b;

if p1 and not p2 then c:=a+b;

if not p1 and not p2 then c:=b-a;

if c

原来不用高精啊~~~哈哈，用unsigned __int64就可以

编译通过...

├ 测试数据 01：答案错误...

　├ Hint: 你死定了！　├ 标准行输出

　├ 错误行输出

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案错误...

　├ Hint: 又死了！　├ 标准行输出

　├ 错误行输出

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案错误...程序输出比正确答案长

---|---|---|---|---|---|---|---|-

Unaccepted 有效得分：31 有效耗时：0ms

评语这么有型啊

汗，第503个通过(这数字不怎么样。。)

第501个通过~~

分四种情况 高精度一次AC

第500个通过～～

水题，分两种情况(a=b)，17行搞定。

var

a,b:int64;

c,x,y:qword;

s:string;

i,j,k,l:integer;

begin

read(a,b);

if ((a=0))or((a=0)) then begin x:=a;y:=b;c:=a+b;end

else c:=a-b;

str(c,s);

j:=length(s);

for i:=1 to j mod 3 do

write(s[i]);write(',');

for i:=j mod 3+1 TO j do

begin

write(s[i]);

k:=k+1;

if (k mod 3=0)and (not(i=j)) then write(',');

end;

end.

试 一试!!!!!!!!!!

体力模拟...分4种情况,共写了100+行...好在一次AC

没压位,花点时间推了if i mod 3=1 then write(',')

编译通过...

├ 测试数据 01：答案错误...

　├ Hint: 你死定了！

　├ 标准行输出

　├ 错误行输出

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案错误...

　├ Hint: 哈哈哈！

　├ 标准行输出

　├ 错误行输出

├ 测试数据 05：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Unaccepted 有效得分：20 有效耗时：0ms

才20.。。。。。。。。。

自行车骗人的！大家千万不要相信他！