pe信托 视频:有谁可以告诉我"求100到200这间的素数"的PSKCAL的程序吗?
来源:百度文库 编辑:杭州交通信息网 时间:2024/05/03 05:38:10
Program exe;
var a,i,b:integer;
begin
for i:=100 to 200 do
begin
for a:=2 to i-1 do
if not(i mod a =0) then b:=i;
write(b);
end;
end.
我没有试过,不知道对不对