数素数 pascal数素数Time Limit:1000MS Memory Limit:65536KTotal Submit:654 Accepted:172Description输出[m,n]之间的所有素数的个数kInput只有一行共有二个正整数:m n ( 1 < m < n < 1000000 )Output只有一行且只有一个整数:
来源：学生作业帮助网 编辑：六六作业网 时间：2024/12/22 11:16:36
数素数 pascal数素数Time Limit:1000MS Memory Limit:65536KTotal Submit:654 Accepted:172Description输出[m,n]之间的所有素数的个数kInput只有一行共有二个正整数:m n ( 1 < m < n < 1000000 )Output只有一行且只有一个整数:
数素数 pascal
数素数
Time Limit:1000MS Memory Limit:65536K
Total Submit:654 Accepted:172
Description
输出[m,n]之间的所有素数的个数k
Input
只有一行共有二个正整数:m n
( 1 < m < n < 1000000 )
Output
只有一行且只有一个整数:k
Sample Input
5 10
Sample Output
2
Source
基础题
数素数 pascal数素数Time Limit:1000MS Memory Limit:65536KTotal Submit:654 Accepted:172Description输出[m,n]之间的所有素数的个数kInput只有一行共有二个正整数:m n ( 1 < m < n < 1000000 )Output只有一行且只有一个整数:
var n,m,ans,i,j:longint; f:boolean;
begin
readln(m,n);
ans:=0;
for i:=m to n do
begin
f:=true;
for j:=2 to trunc(sqrt(i)) do
begin
if i mod j=0 then
begin
f:=false; break;
end;
end;
if f then inc(ans);
end;
writeln(ans);
end.