记录编号	6919	评测结果	AAAAAAAAAAA
题目名称	[USACO Jan07] 有限制的素数	最终得分	100
用户昵称	MayLava	是否通过	通过
代码语言	Pascal	运行时间	0.604 s
提交时间	2008-11-05 14:59:11	内存使用	3.93 MiB

program MayLava;
var
 ss:array[1..4000000]of boolean;
 a,b,sum:longint;
 d:char;
procedure start;
 var
  f:text;
 begin
  assign(f,'qprime.in');
  reset(f);
  readln(f,a,b,d,d);
  close(f);
  sum:=0;
  fillchar(ss,sizeof(ss),true);
 end;
procedure creative;
 var
  i,j:longint;
 begin
  ss[1]:=false;
  for i:=2 to (b div 2) do begin
   if not ss[i] then continue;
   j:=2;
   repeat
    ss[i*j]:=false;
    inc(j);
   until i*j>b;
  end;
 end;
procedure main;
 var
  i:longint;
  s:string;
 begin
  for i:=a to b do begin
   if not ss[i] then continue;
   str(i,s);
   if pos(d,s)<>0 then inc(sum);
  end;
 end;
procedure print;
 var
  f:text;
 begin
  assign(f,'qprime.out');
  rewrite(f);
  writeln(f,sum);
  close(f);
 end;
BEGIN
 start;
 creative;
 main;
 print;
END.