int a[100]={220,1184,2620,5020,6232,10744,12285,

17296,63020,66928,67095,69615,79750,

100485,122265,122368,141664,142310,

171856,176272,185368,196724,280540,

308620,319550,356408,437456,469028,

503056,522405,600392,609928,624184,

635624,643336,667964,726104,802725,879712,

898216,947835,998104,1077890,

1077890,1154450,1280565,1392368,1511930,1798875,2082464,

4238984,5459176,

6329416,7677248,9363584,10254970,13921528,16137628,50997596,

52695376,56055872,56512610,56924192,58580540,59497888,63560025,

63717615,66595130,66854710,67729064,67738268,68891992,71015260,

71241830,72958556,73032872,74055952,74386305,74769345,75171808,

75226888,78088504,78447010,79324875,80422335,82633005,83135650,

84521745,84591405,86158220,87998470,88144630,89477984,90437150,91996816,

93837808,95629904,95791430,96304845,97041735},i,s=0,g,h;

cin>>g>>h;

一暴还一暴

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

都说打表-rp,只好搜索。

:-C，做打表这种减少RP的事情是不对滴，交了几次才发现表打错了

张冀大牛的解法啥意思呢？谁能解释一下?

题目说输出亲和数对的数量

实则是输出亲和数的数量

真是牛X啊,居然打表.

以暴制暴！！！

打表！

220,1184,2620,5020,6232,10744,12285,17296,63020,

66928,67095,69615,79750,100485,122265,122368,141664,

142310,171856,176272,185368,196724,280540,308620,

319550,

356408,437456,469028,503056,522405,600392,609928,

624184,635624,643336,667964,726104,802725,879712,

898216,947835,998104,1077890,1077890,1154450,1280565,

1392368,1511930,1798875,2082464,4238984,5459176,

6329416,

7677248,9363584,10254970,13921528,16137628,

50997596,

52695376,56055872,56512610,56924192,58580540,

59497888,63560025,63717615,66595130,66854710,

67729064,67738268,68891992,71015260,71241830,

72958556,73032872,74055952,74386305,74769345,

75171808,75226888,78088504,78447010,79324875,

80422335,82633005,83135650,84521745,84591405,

86158220,87998470,88144630,89477984。。。

再也算不下去了！！

在此题上..我看到了...

6K的恶心..

``还看到了..80分就AC的例子..

终于看到了.

面对有表的诱惑..

我做了-RP的事`\

编译通过...

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

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

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

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

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

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

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

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

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

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

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

交了N（N》10）

到最后 我愤怒了！！！！！！

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

剪枝 可发现亲和数 要么（mod 2=0） 要么（mod 2《》0） and （mod 10=5）；

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

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

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

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

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

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

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

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

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

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

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

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

可惜啊

...差一点点就秒杀掉了

...9ms

...郁闷

反向匀速圆周运动...

我是算亲和数的

- -!!!

for i:=1 to trunc(sqrt(x)) do

if x mod i=0

then begin

if i1

then j:=j+i+x div i

else j:=j+i;

end;

if j=v

then inc(k);

end;

AC了了了了

bs这题打表的！这道题完全可以用模拟过，也不需要用inline。a，b最大差10^5，再乘上因子个数，复杂度大约在10^6左右。加上枚举时需要的操作很少，中间有许多状态可以剪掉，所以时间完全够用

呃，我单独写成一个函数，然后Inline,过了。。。不用打表。。

这题个人认为有个漏洞啊

就是完全平方数的因子问题

比如说X^2=Y

那X是加一次还是加两次？？？

我试了一下

X加一次和X加两次都全A.......

这是我通过的第123题

真和谐啊......

只过了七组，还有三组错误。。。帮忙看看哪里有问题

var

a,b,sum,s,i,j,k,bb,aa,e:longint;

t:integer;

function he(e:longint):longint;

var sum1,i:longint;

begin

sum1:=0;

for i:=2 to round(sqrt(e)) do

if e mod i=0 then

begin

if ei*i then begin sum1:=sum1+i+(e div i) end else sum1:=sum1+i;

end;

sum1:=sum1+1; {writeln(sum1); }

he:=sum1;

end;

begin

read(a,b); t:=0;

for k:=a to b do

begin

aa:=0;

bb:=he(k);

if (k

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

var

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

procedure run(x:longint);

var

i,j,w:longint;

begin

j:=0;

for i:=1 to trunc(sqrt(x)) do

if x mod i=0

then begin

if i1

then j:=j+i+x div i

else j:=j+i;

end;

if j=v

then inc(k);

end;

procedure li(x:longint);

var

i,k,w:longint;

begin

k:=0;

for i:=1 to trunc(sqrt(x)) do

begin

if x mod i=0

then begin

if i1

then k:=k+i+x div i

else k:=k+i;

end;

end;

if k>x

then run(k);

end;

begin

read(n,m);

for v:=m downto n do

if (not(odd(v)))or(odd(v)and(v mod 10=5))

then

li(v);

write(k);

end.

一道难度1的题我做了一个小时……

没交数据,就是枚举的,时间如下供参考

编译通过...

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

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

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

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

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

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

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

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

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

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