记录编号	12542	评测结果	AAAAAAATTE
题目名称	亲和数	最终得分	70
用户昵称	cqw	是否通过	未通过
代码语言	Pascal	运行时间	3.384 s
提交时间	2009-09-14 12:42:21	内存使用	0.11 MiB

program amicable;
var f:text;s,a,b:longint;
function js(x:longint):longint;
var t,i:longint;
begin
t:=1;
for i:=2 to trunc(sqrt(x)) do
if x mod i=0 then t:=t+i+(x div i);
js:=t
end;
procedure init;
begin
assign(f,'amicable.in');reset(f);
readln(f,a,b);close(f);
end;
procedure print;
begin
assign(f,'amicable.out');rewrite(f);
writeln(f,s);close(f);
end;
procedure main;
var i,k:longint;
begin
s:=0;
for i:=a to b do
begin
k:=js(i);
if k>i then if js(k)=i then s:=s+1;
end;
end;
begin
init;
main;
print;
end.