pascal语言的编程：用if语句判断素数

var a,ge,shi,x:longintbegin for a:=10 to 99 do begin if …… …… end;end.在if后面开始判断谁10~99之间的素数最好就是有解释

2026年09月24日 22:19

有4个网友回答

网友（1）：

var a,ge,x:longint;
begin
for a:=10 to 99 do
begin
ge:=0;
for x:=2 to trunc(sqrt(a)) do
if a mod x=0 then
write(a,' ');
end;
end.

网友（2）：

var a,ge,x:longint;
begin
for a:=10 to 99 do begin
ge:=0;for x:=1 to a do if a mod x=0 then ge:=ge+1;
if ge<=2 then write(a,' ');
end; writeln;
end.
过程：
让a从10循环到99，用ge统计a的约数，判断：当ge<=2时，输出a;

如：
1.a==>10 a==>1~10 a=1,ge=0+1;a=2,ge:=1+1;a=5,ge=2+1;a=10,ge=3+1;
2.a==>10 a==>1~11 a=1,ge=0+1;a=11,ge=1+1;write(a);
...

网友（3）：

var a,ge,x:longint;
begin
for a:=10 to 99 do
begin
ge:=0;
for x:=2 to trunc(sqrt(a)) do
if a mod x=0 then ge:=ge+1;
if ge=0 then write(a,' ');
end;
end.

网友（4）：

回答

var a,ge,x:longint;
begin
for a:=10 to 99 do begin
ge:=0;for x:=1 to a do if a mod x=0 then ge:=ge+1;
if ge<=2 then write(a,' ');
end; writeln;
end.