在2-100之间的质数有哪些?
答案:6 悬赏:20 手机版
解决时间 2021-02-09 20:18
- 提问者网友：萌卜娃娃
- 2021-02-09 05:52
在2-100之间的质数有哪些?
最佳答案
- 五星知识达人网友：一秋
- 2021-02-09 06:26
2 3 5 7 11 13 17 19 23 29 31 37 41 43 47 53 59 61 67 71 73 79 83 89 97
全部回答
- 1楼网友：神也偏爱
- 2021-02-09 09:06
3 5 7 11 13 17 19 23 29 31 37
- 2楼网友：过活
- 2021-02-09 08:40
2 3 5 7 11 13 17 19 23 27 31 37 41 47 49 61 67 71 79 81 87 89 91 93
- 3楼网友：一叶十三刺
- 2021-02-09 08:10
2 3 5 7 11 13 17 19 23 29 31 37 41 43 47 53 59 61 67 71 73 79 83 89 97
- 4楼网友：渊鱼
- 2021-02-09 07:15
2 3 5 7 11 13 17 19 23 29 31 37 41 43 47 53 57 61 67 71 73 83 89 91 97
- 5楼网友：千夜
- 2021-02-09 06:48
质数问题,最基本的.用质数筛.(就是打表...)
var i,j,k:integer;
a:array[1..1000]of boolean;
begin
fillchar(a,sizeof(a),true);
for i:=2 to 100 do begin
if(a[i])then begin
j:=2;
while(i*j)<=100 do begin
a[i*j]:=false;
inc(j);
end;
end;
end;
for i:=2 to 100 do
if(a[i])then
writeln(i);
end.
关于第二个问题(就是那个"内容:"之后的那个问题) ,难点在于没有告诉你n,所以要用字符串输入在做处理:
var i,j,lastspace,max,total:longint;
s:ansistring;
begin
readln(s);
lastspace:=1;
total:=0;
max:=0;
for i:=1 to length(s) do begin
if(s[i] = ' ')or(i=length(s))then begin
val(copy(s,lastspace,i-lastspace),(j));
lastspace:=i+1;
inc(total);
if(max<j)then max:=j;
end;
end;
writeln(total,' ',max);
end.
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯