湖南工程学院计划:有谁可以告诉我"求100到200这间的素数"的PSKCAL的程序吗?
来源:百度文库 编辑:中科新闻网 时间:2024/04/29 06:11:44
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.
我没有试过,不知道对不对