题解 - Vijos

0
自行车 LV 7 @ 2009-05-13 18:25:30

编译通过...

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

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

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

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

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

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

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

var a,s:integer;

m,n:string;

q1,q2,c:array[1..100]of integer;

l1,l2,w1,w2:integer;

begin

readln(m);

readln(n);

l1:=length(m);

l2:=length(n);

if m[1]='-'then w1:=1;

if n[1]='-'then w2:=1;

if l1-w1>l2-w2 then s:=l1-w1 else s:=l2-w2;

for a:=1+w1 to l1 do

val(m[l1-a+1+w1],q1[a-w1]);

for a:=1+w2 to l2 do

val(n[l2-a+1+w2],q2[a-w2]);

for a:=1 to s do

begin

if (w1=0)and(w2=0)then

c[a]:=q1[a]-q2[a]+c[a];

if (w1=0)and(w2=1)then

c[a]:=q1[a]+q2[a]+c[a];

if (w1=1)and(w2=0)then

c[a]:=q2[a]+q1[a]+c[a];

if (w1=1)and(w2=1)then

c[a]:=q2[a]-q1[a]+c[a];

if c[a]10 then

begin

c[a]:=c[a]-10;

c[a+1]:=c[a+1]+1;

end;

end;

if (w1=1) and (w2=0)then write('-');

s:=0;

for a:=s downto 1 do

if c[a]0 then

begin

s:=a;

break;

end;

if s=0 then s:=1;

if c0 then s:=s+1;

for a:=s downto 1 do

begin

if ((a-s) mod 3=0)and(sa) then write(',');

write(c[a]);

end;

readln;

end.
0
linw8 LV 8 @ 2009-03-15 10:45:01

编译通过...

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

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

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

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

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

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

Accepted 有效得分：100 有效耗时：0ms
0
WSC_1992 LV 8 @ 2008-12-14 14:19:48

我是看数据有点小，就先用string读入后转成int64计算，遇到特殊情况才做高精度

但要谨防这种情况，输入-2^63 和 2^63-1

在int64的数据范围里是不包含2^63的
0
zjsxjerry1 LV 3 @ 2008-11-09 19:59:47

谁有测试数据，给我看看
0
zhengfangyi LV 10 @ 2008-11-01 16:17:02

提交的100题，通过的24题，祝贺一下！

我很菜……
0
brace_123 LV 9 @ 2008-10-29 18:31:50

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

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

读入:int64

差:qword

用数组存ans.

l mod 3=1 and l>1 then print(',');

over...

水...
0
yang5562008 LV 7 @ 2008-09-29 18:57:40

我过两个为什么得两分？？？？？

无语......
0
pig132 LV 8 @ 2008-09-26 21:46:30

第300人
0
papayazx LV 3 @ 2008-09-19 20:35:11

最正确的思路:

var

{procedure}

begin

end.

UU /-\ ┮ ∈ |マ ......
0
IVORY LV 4 @ 2008-09-14 09:38:09

水啊...差点被淹死...
0
LV.唱响 LV 8 @ 2008-09-11 17:03:31

1次性AC.

水题不扫何以扫地板.
0
ljh LV 8 @ 2008-09-07 21:29:31

用int64
0
Never Gone LV 3 @ 2008-08-21 21:02:30

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

结果发现忘记考虑a=b的情况了，因此无输出
0
fammiebright LV 9 @ 2008-08-19 16:12:50

用自己的qword 让高精见鬼去吧。
0
huyue LV 3 @ 2008-08-11 14:51:35

题目很猥琐..........
0
手冢领域 LV 5 @ 2008-08-04 16:13:13

编译通过...

├ 测试数据 01：运行时错误...| 错误号: 106 | 无效数字格式

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

├ 测试数据 03：运行时错误...| 错误号: 106 | 无效数字格式

├ 测试数据 04：运行时错误...| 错误号: 106 | 无效数字格式

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

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

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

这啥玩意？
0
他在那里 LV 7 @ 2008-08-01 10:59:41

用INT64记录a , b 两个数

用QWORD记录结果。
0
hexiaoli LV 9 @ 2008-07-29 21:48:22

有 0 0

输出；0
0
jcy_KAKA LV 8 @ 2008-07-29 21:29:46

其实数据没到±2^63……否则qword也无能为力……
0
churchill LV 7 @ 2008-07-29 20:19:53

编译通过...

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

├ 测试数据 02：运行超时...

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

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

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

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

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

怎么会99分？？？？？？？？？？？