来自黄西孟的问题
100-1000素数之和
100-1000素数之和
pascal:
var
s,i,x,t:longint;
begin
s:=0;
forx:=100to1000dobegin
t:=0;
fori:=1toxdoifxmodi=0thent:=t+1;
ift=2thens:=s+x;
end;
writeln('S=',s);
end.
大家都在问
最新问答
海冰含盐量接近淡水，...2020-12-30
三峡游山峰一下子就被...2020-12-30
二元一次方程简单的配...2020-12-30
【偏裨将校是什么意思...2020-12-30
如图秒表的读数为__...2020-12-30
____abigfi...2020-12-30
【知道本金和税后利息...2020-12-30
《一百条裙子》读后感...2020-12-30
利用矩阵解二元一次方...2020-12-30
【英语中的peasa...2020-12-30