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

来源：学生作业帮助网编辑：作业帮时间：2024/04/28 14:47:15

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

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试求出1-10000以内所有0以内的素数的倍数,重复的只算一个,求它们的和是所有10以内的.打错了用Pascal语言求出1——1000以内的孪生素数! C语言编程：1 求出1000以内所有偶数之和 PASCAL求出100以内的全部素数,并按每行五个数显示如果一个两位数是素数,且它的数字位置经过对换后仍为素数,则称为绝对素数,例如13,试编程求出所有两位数pascal pascal 100以内奇数求和求出100以内的所有勾股数组（pascal,C,Logo语言均可）设a^2+b^2=c^2 则此数组为勾股数组,求出100以内的所有勾股数组.按照a从小到大排列.3,4,5 和4 3 5算为一组 3 4 5 和 6 8 10 也算为一组.如出现上述 pascal 巧妙填数将1,2,…,9共9个数分成三组,分别组成三个三位数,且使这三个三位数构成 1:2:3的比例试求出所有满足条件的三个三位数. 例如：三个三位数192,384,576满足以上条件.无输入输出： pascal编程：将1~9这9个数字分成三组(每个数字只能用一次),分别组成三个三位数.求大师讲解一下吧!且这三个三位数的值构成1:2:3的比例,试求出所有满足条件的三个三位数. 192 384 576 219 438 657 32 用pascal语言将1,2,…,9共9 个数分成3组,分别组成3个3位数,且使这3个3位数构成1：2：3的比例,试求出所有满足条件的3个3位数（输出：每行输出3个同一情况的数）. 组数用free pascal解决---只准用!将1~9这9个数字分成3组（每个数字只能使用一次）,分别组成3个三位数,且这3个三位数的值构成1：2：3的比例,试求出所有满足条件的3个三位数.急要求有解释,务用free pascal 编程3.如果一个自然数是素数,且它的数字位置经过对换后仍为素数,则称为绝对素数,例如13.试求出所有二位绝对素数.如果一个自然数除了1和本身,还有别的数能够整除它,这样的自输入n个正整数,先求出它们的平均值x,然后求出所有数据与x的差的平方和S用pascal 求100以内的素数pascal语言 10000以内所有奇数和等于多少? 用pascal求出正整数3～M(3 用while语句求出100以内的所有奇数之和和偶数之和在VB里输入什么代码求出1000以内的所有勾股数!