program p1216(input,output);
const h:array[1..100]of longint=(
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);
var
x,y,i,n:longint;
begin
n:=0;
read(x,y);
for i:=1 to 100 do
if (h[i]>=x) and (h[i]<=y)
then inc(n);
writeln(n);
end.
注意质数不可能是亲和数。而且1000000000以内的奇亲和数必有3,5,7这几个中的一个作为约数。
我把正解发这帖上了~
我认为应该是正解。。。。