好吧问答库 > 输入一个100以上的数，求其范围以内的质数。用PASCAL语言怎么编程？

输入一个100以上的数，求其范围以内的质数。用PASCAL语言怎么编程？

2026年09月21日 15:59

有2个网友回答

网友（1）：

var
n,i,j:integer;
ok:boolean;
begin
readln(n);
for i:=2 to n do
begin
ok:=true;
for j:=2 to trunc(sqrt(i)) do
if i mod j = 0 then begin ok:=false;break; end;
if ok then writeln(i) else continue;
end;
end.

我直接在这里打的,没编译,如果有什么小错误你自己检查下.

网友（2）：

c语言我就会,我给你算法吧
设输入的数为x
用循环尝试1~0.5x之中有没有可以整除x的数可以用'%'
如果有返回1
如果无返回0
1则输出不是质数
0则输出是质数