pascal试求出1-10000以内所有0以内的素数的倍数,重复的只算一个,求它们的和

来源：学生作业帮编辑：作业帮分类：综合作业时间：2024/09/14 06:46:25

pascal试求出1-10000以内所有0以内的素数的倍数,重复的只算一个,求它们的和
是所有10以内的.打错了

var
sum,i,j:longint;
s:array [1..10000] of boolean;
begin
sum:=0;
fillchar(s,sizeof(s),false);
for i:=2 to 10 do if not s[i] then
begin
j:=i;
repeat
s[j]:=true;
j:=j+i;
until j>10000;
end;
for i:=1 to 10000 do if s[i] then sum:=sum+i;
writeln(sum);
end.
用数组s来记录一个数是否是素数的倍数,然后求和即可.运行结果是38583585.

pascal求100000以内的纯粹素数. 求100以内的素数pascal语言用Pascal语言求出1——1000以内的孪生素数! 求200到500以内所有素数的和, PASCAL求出100以内的全部素数,并按每行五个数显示 pascal求10000以内n的阶乘? 求100以内13的所有倍数! 求1000以内素数的和求100以内的素数（1)用筛选法求出这些素数.（2）在屏幕上显示出求素数的动态过程（在屏幕上先显示出100以内的所有数, matlab求10000以内的素数求100以内的所有素数的和.（素数是一个大于1且只能被1和它本身整除的整数）用java如何实现编写程序,求 30 以内的所有素数之和 .(素数是只能被1和其自身整除的数