我出的题，curimit太强了。

帐号被解封后的第一道题......（倒霉）

感谢walala大牛的题解，一次AC

这次就不贴代码了......我的代码被删了好几次了....

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

编译通过...

├ 测试数据 01：答案正确... 0ms ├ 测试数据 02：答案正确... 0ms ├ 测试数据 03：答案正确... 0ms ├ 测试数据 04：答案正确... 0ms ├ 测试数据 05：答案正确... 0ms ├ 测试数据 06：答案正确... 0ms ├ 测试数据 07：答案正确... 0ms ├ 测试数据 08：答案正确... 0ms ├ 测试数据 09：答案正确... 0ms ├ 测试数据 10：答案正确... 0ms ├ 测试数据 11：答案正确... 0ms ├ 测试数据 12：答案正确... 0ms ├ 测试数据 13：答案正确... 0ms ├ 测试数据 14：答案正确... 0ms ├ 测试数据 15：答案正确... 0ms ├ 测试数据 16：答案正确... 0ms ├ 测试数据 17：答案正确... 0ms ├ 测试数据 18：答案正确... 0ms ├ 测试数据 19：答案正确... 0ms ├ 测试数据 20：答案正确... 0ms ------------------------- Accepted 有效得分：100 有效耗时：0ms

Flag 　　 Accepted

题号 　　P1505

类型(?) 　　数论 / 数值

通过 　　63人

提交 　　502次

通过率 　　13%

难度 　　2

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

哎, 终于AC70题 ..

编译通过...

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

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

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

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

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

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

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

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

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

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

├ 测试数据 11：答案错误...　├ 标准行输出 4

　├ 错误行输出 6

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

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

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

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

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

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

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

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

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

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

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

type

numtype=array[0..200]of longint;

const

a2:array[0..3]of longint=(6,2,4,8);

a3:array[0..3]of longint=(1,3,9,7);

a7:array[0..3]of longint=(1,7,9,3);

a8:array[0..3]of longint=(6,8,4,2);

a4:array[0..1]of longint=(6,4);

a9:array[0..1]of longint=(1,9);

var

s,ss:string;

l,i,j,k,len,x,ans:longint;

f:boolean;

a,y,bb:numtype;

b1:array[2..9]of longint;

b:array[2..9]of numtype;

function max(x,y:longint):longint;

begin if x>y then exit(x);exit(y);end;

procedure make(y:numtype;d:longint);

var i,e,k,x,xx:longint;yy,c:numtype;

begin

fillchar(yy,sizeof(yy),0);

if y[1]>=5then yy[1]:=1;

for i:=2 to y[0] do

begin

yy:=y[i]*2+yy;

yy[i]:=yydiv 10;

yy:=yymod 10;

end;

yy[0]:=y[0]+2;

while (yy[yy[0]]=0)and(yy[0]>1) do dec(yy[0]);

y:=yy;

//for i:=1 to y[0]do write(y[i],' ');writeln(y[0]);

//y:=y div 5;

// c:=y div 10;

e:=y[1];//e:=y mod 10;

if (y[0]>1)or((y[0]=1)and(y[1]>1)) then make(y,d+1);

fillchar(yy,sizeof(yy),0);

for i:=2 to y[0] do

begin

yy:=y[i]*2+yy;

yy[i]:=yydiv 10;

yy:=yymod 10;

end;

yy[0]:=y[0]+2;

while yy[yy[0]]=0 do dec(yy[0]);

for i:=1 to 199 do begin bb[i]:=bb[i]+yy[i];bb:=bb+bb[i]div 10;bb[i]:=bb[i]mod 10;end;

//inc(b[2],c shl 1);inc(b[4],c shl 1);inc(b[6],c shl 1);inc(b[8],c shl 1);

k:=a8[d mod 4];

for i:=1 to e do

begin

x:=i*k mod 10;

inc(b[x,1]); xx:=1;

while b[x,xx]>=10do

begin

b[x,xx+1]:=b[x,xx+1]+b[x,xx]div 10;

b[x,xx]:=b[x,xx]mod 10;

inc(xx);

end;

if xx>b[x,0]then b[x,0]:=xx;

//inc(b[x]);

end;

end;

//////////////////

procedure plus(k:longint);

var i:longint;

begin

b[k,0]:=max(b[k,0],bb[0]);

for i:=1 to b[k,0]do

begin

b[k,i]:=b[k,i]+bb[i];

b[k,i+1]:=b[k,i+1]+b[k,i]div 10;

b[k,i]:=b[k,i]mod 10;

end;

end;

begin

readln(s);l:=length(s);

for i:=1 to l div 2 do

if l mod i=0 then

begin

f:=true;

ss:=copy(s,1,i);

for j:=1 to l div i-1 do

if sscopy(s,j*i+1,i)then begin f:=false;break;end;

if f then break;

end;

if f then len:=i else len:=l;

for i:=1 to len do a[i]:=ord(s[len-i+1])-ord('0');

x:=1;

if len=1 then

begin

for i:=1 to a[1] do

x:=x*i;

while x mod 10=0do x:=x div 10;

writeln(x mod 10);

halt;

end;

a[0]:=len; for i:=2 to 9 do b:=1;

make(a,1);

i:=200;while bb[i]=0 do dec(i);bb[0]:=i;

//for i:=bb[0]downto 1 do write(bb[i]);writeln;

{for i:=2 to 9 do

begin

write(i,' ');

for j:=b+1downto 1 do

write(b);

writeln(' ',b);

end;}

plus(2);plus(4);plus(8);

fillchar(bb,sizeof(bb),0);

for i:=2 to len do

bb:=a[i];

bb[0]:=len-1;

// for i:=bb[0]downto 1 do write(bb[i]);writeln;

for i:=2 to 4 do plus(i);for i:=7 to 9 do plus(i);

x:=a[1];////!!!!

{c:=n div 10;

for i:=2 to 9do inc(b[i],c);

c:=n mod 10;

for i:=2to c do inc(b[i]);}

for i:=2 to 9 do

b1[i]:=b+b*10;

for i:=1 to x do inc(b1[i]);

{ for i:=2 to 9 do

begin

write(i,' ');

for j:=b+1downto 1 do

write(b);

writeln(' ',b);

end;}

//for i:=2 to 9 do writeln(i,' ',b1[i]);

for i:=2 to 9 do if b1[i]=0then b1[i]:=1;

b1[2]:=b1[2]mod 4;b1[3]:=b1[3]mod 4;

b1[7]:=b1[7]mod 4;b1[8]:=b1[8]mod 4;

b1[4]:=b1[4]and 1;b1[9]:=b1[9]and 1;

//for i:=2 to 9 do writeln(i,' ',b1[i]);

ans:=a2[b1[2]]*a3[b1[3]]*a4[b1[4]]*6*a7[b1[7]]*a8[b1[8]]*a9[b1[9]];

writeln(ans mod 10);

end.

如果能有大牛给我看看那太感谢了。。。

？？？

悲剧中

150行（包括空行和中间输出检查）

刚从p1669转高精过来

why19931123抄我的还鄙视我????

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

谢谢楼下的!!!!!

第30个!!!!!