335 条题解
-
0
ymy23817 LV 8 @ 2008-09-08 21:47:47
编译通过...
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案正确... 0ms
├ 测试数据 03：答案正确... 0ms
├ 测试数据 04：答案正确... 0ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分：100 有效耗时：0ms
我日.改称ansistring就对了。。。 -
0
每3位看成1位~~~~~3333*3333=10000000！
勉强过了~~~~program york;
var a,b,a0,b0,c:array[0..100000]of int64;
i,j,k,t:longint;
x:char;
begin
fillchar(a,sizeof(a),0); fillchar(a0,sizeof(a0),0); read(x);
while x#13 do begin inc(a[0]); a[a[0]]:=ord(x)-48; read(x); end; readln;
for i:=1 to (a[0] div 2) do begin t:=a[i]; a[i]:=a[a[0]-i+1]; a[a[0]-i+1]:=t; end;
a[0]:=a[0]+(3-a[0] mod 3);
for i:=1 to (a[0] div 3) do a0[i]:=a*100+a*10+a; a0[0]:=a[0] div 3;{for i:=1 to a0[0] do write(a0[i],' '); writeln; {@}}
fillchar(b,sizeof(b),0); fillchar(b0,sizeof(b0),0); read(x);
while x#13 do begin inc(b[0]); b[b[0]]:=ord(x)-48; read(x); end;
for i:=1 to (b[0] div 2) do begin t:=b[i]; b[i]:=b[b[0]-i+1]; b[b[0]-i+1]:=t; end;
b[0]:=b[0]+(3-b[0] mod 3);
for i:=1 to (b[0] div 3) do b0[i]:=b*100+b*10+b; b0[0]:=b[0] div 3;{for i:=1 to b0[0] do write(b0[i],' '); writeln; {@}}
fillchar(c,sizeof(c),0);
for i:=1 to a0[0] do for j:=1 to b0[0] do
begin
c:=c+a0[i]*b0[j];
end;for i:=1 to a0[0]+b0[0] do begin c:=c+c[i] div 1000; c[i]:=c[i] mod 1000; end;
for i:=a0[0]+b0[0]+1 downto 1 do if c[i]0 then begin k:=i; break; end;if (c[k] div 100)0 then write(c[k] div 100);
if ((c[k] mod 100) div 10) 0 then write(((c[k] mod 100) div 10));
write(c[k]mod 10);for i:=k-1 downto 1 do
begin
write(c[i] div 100);
write(((c[i] mod 100) div 10));
write(c[i] mod 10);
end;
end. -
0
lyzhwsh123 LV 8 @ 2008-08-01 13:58:12
编译通过...
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案正确... 0ms
├ 测试数据 03：答案正确... 0ms
├ 测试数据 04：答案正确... 0ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分：100 有效耗时：0ms千进制。。。。。简单高精。
ymy23817
LV 8
@ 2008-09-08 21:47:47
