一道pascal题,有望各位电脑高手帮忙解解

发布网友 发布时间：2024-10-23 21:35

我来回答

共3个回答

热心网友 时间：2024-10-27 00:59

program work
var
total,i,j:integer;
begin
total:=2;
for i:=2 to 100 do//遍历每个数
for j:=3 to trunc(sqrt(i)) do
if i mod j then //判断是否为素数
total:=total+i;
writeln(total);
end.

热心网友 时间：2024-10-27 01:01

var
n,i,j,bl:integer;
begin
read(n);
for i:=2 to n do//遍历每个数
begin
bl=1;//是否为素数
for j:=2 to trunc(sqrt(i)) do
if i mod j=0 then begin bl:=0;break;end;
if bl=1 then total:=total+i;//是素数就加
end;
writeln(total);
end.

本人长期用c++有编绎错误自己改

热心网友 时间：2024-10-27 01:01

具体就不写了，提供一个算法吧：
先写一个函数判断是否是质数，然后从给出的数向前穷举，若是质数则累加。