做一道PASCAL题目

来源：学生作业帮编辑：作业帮分类：综合作业时间：2024/05/06 23:48:41

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

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

做一道PASCAL题目一道Free Pascal题目一道pascal的题目关于一道pascal题目一道pascal题目啊帮我做一道简单的编程题目(pascal) 求pascal的一道题目! 一道简单的pascal题目一道 PASCAL的简单题目一道Free Pascal的题目用pascal编写的一道题目. 问一道Free Pascal的题目.