var

 i,j,k,l,m,n:longint;

 begin

 while not eof do

 begin

  k:=0;l:=0;

  read(m,n);

  for i:=m to n do

   begin

   j:=1; k:=0;

   if (i mod 2<>0)   and (i<>1)then

    repeat

     j:=j+1;

     if (i mod j)=0 then

     begin

      k:=1;

      break;

      end;

    until j*j>i

    else

    if (i<>2) then k:=1;

    if i=1 then k:=1;

    if k=0 then l:=l+1;

   end;

   writeln(l);

   end;

 end.

-------------------------

會出0 

大哥,你不能用read,要用readln.

我也经常犯这种错

例如d532：文文的求婚（三）

原代码：

var
  a,b,i,j:longint;
begin
  while not eof do begin
   read(a,b);
   for i:=a to b do if ((i mod 4=0) and (i mod 100<>0)) or (i mod 400=0) then j:=j+1;
   writeln(j);
  end;
end.

OLE了，改成：

var
  a,b,i,j:longint;
begin
  while not eof do begin
   readln(a,b);
   for i:=a to b do if ((i mod 4=0) and (i mod 100<>0)) or (i mod 400=0) then j:=j+1;
   writeln(j);
  end;
end.

就AC了