请神牛指教

var ans:qword;
a,b:int64;
ans1:string;
i,n:integer;
begin
readln(a,b);
ans:=a-b;
str(ans,ans1);
n:=length(ans1);
if a-b>0 then
begin
for i:=1 to n do
begin
write(ans1[i]);
if ((n-i) mod 3=0) and (i<>n) then write(',');
end;
end
else
begin
write('-');
for i:=1 to n do
begin
write(ans1[i]);
if ((n-i) mod 3=0) and (i<>n) then write(',');
end;
end;
end.
为啥20分?

2 条评论

  • @ 2014-02-03 11:39:11

    你输入这个输入试试
    9223372036854775807 -9223372036854775805
    你自己笔算一下,或者估算一下答案是什么
    然后你的程序run一下看一下输出是什么!
    明白错在哪里了吧

    • @ 2016-05-14 07:32:22

      我试过了,但是输出是对的。。。。。

  • @ 2013-08-27 14:19:02

    我想告诉你好像不用高精减……

  • 1

信息

ID
1372
难度
6
分类
模拟 点击显示
标签
递交数
1675
已通过
453
通过率
27%
被复制
4
上传者