做一道PASCAL题目输出2——n之间的所有素数（质数）.

我来找人1 1年前 已收到1个回答 举报
赞

廖素兰 幼苗

共回答了19个问题采纳率：89.5% 举报

var
a:array [2..10000] of boolean;
i,j:word;
n:word;
begin
readln(n);
fillchar(a,sizeof(a),true);
for i:=2 to n do if a[i] then begin
write(i:8);
j:=i*2;
while j

1年前

10
可能相似的问题

你能帮帮他们吗

精彩回答

Copyright © 2024 YULUCN.COM - 雨露学习互助 - 16 q. 1.819 s. - webmaster@yulucn.com