比赛 |
noip-081029 |
评测结果 |
AAATTAATTT |
题目名称 |
最多因子数 |
最终得分 |
50 |
用户昵称 |
辨机ZN |
运行时间 |
0.000 s |
代码语言 |
Pascal |
内存使用 |
0.00 MiB |
提交时间 |
2008-10-29 22:00:29 |
显示代码纯文本
program ex(f1,f2);
type
zn=array [0..50000] of longint;
var
ss,c:zn; i,j,k,m,n,l,p,s,r,ans,now:longint;
f1,f2:text;
begin
assign(f1,'divisors.in'); reset(f1);
assign(f2,'divisors.out'); rewrite(f2);
readln(f1,l,r);
for i:=l to r do
if (i mod 2=0) then begin
now:=0;
for j:=1 to trunc(sqrt(i)) do
if i mod j=0 then
begin if j*j=i then now:=now+1 else now:=now+2; end;
if now>ans then begin ans:=now; p:=i; end;
end;
if (l=1)and(r=1) then begin ans:=1; p:=1; end;
write(f2,'Between ');
write(f2,l,' ');
write(f2,'and ');
write(f2,r,', ');
write(f2,p,' ');
write(f2,'has a maximum of ');
write(f2,ans,' ');
write(f2,'divisors.');
close(f1);
close(f2);
end.