比赛 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.