A % B Problem

题目背景
题目名称是吸引你点进来的
实际上该题还是很水的

题目描述
区间质数个数

输入输出格式

输入格式：
一行两个整数 询问次数n，范围m

接下来n行，每行两个整数 l,r 表示区间

输出格式：
对于每次询问输出个数 t，如l或r∉[1,m]输出 Crossing the line

输入输出样例

输入样例#1：
2 5
1 3
2 6
输出样例#1：
2
Crossing the line

【数据范围和约定】
对于20%的数据 1<=n<=10 1<=m<=10
对于100%的数据 1<=n<=1000 1<=m<=1000000 -10^9<=l<=r<=10^9 1<=t<=1000000
.
.
.
.
.
.

分析

直接暴力，找出1到m内的素数，求素数个数的前缀和。
.
.
.
.
.
.
.

程序：

var
n,m,l,k,i,r:longint;
f:array[0..1000001]of longint;

function ss(w:longint):boolean;
var
bz,i:longint;
begin
    bz:=0;
    for i:=2 to trunc(sqrt(w)) do
    if w mod i=0 then
    begin
        bz:=1;
        break;
    end;
    if bz=0 then exit(true) else exit(false);
end;

begin
    readln(n,m);
    f[0]:=0;
    f[1]:=0;
    f[2]:=1;
    f[3]:=2;
    for i:=4 to m do
    if ss(i)=true then f[i]:=f[i-1]+1 else f[i]:=f[i-1];
    for i:=1 to n do
    begin
        readln(l,r);
        if (l<1)or(r>m) then writeln('Crossing the line') else writeln(f[r]-f[l-1]);
    end;
end.