1樓：晨之子
最簡單的寫法，效率比較低
1var
i,j,n,m,count:integer;
flag:boolean;
begin
readln(n,m);
count:=0;
if n<2 then n:=2;
for i:=n do m do
begin
flag:=true;
j:=2;
while flag and (j*j<=i) dobegin
if (i mod j=0) then flag:=false;
inc(j);
end;
if flag then inc(count);
end;
writeln(count);
end.
2var
n,i,j,k:integer;
out:array[1..1000] of boolean;
begin
readln(n);
j:=1;
for i:=1 to n-1 do
begin
k:=i+1;
while k>0 do
begin
if not out[j] then dec(k);
if k=0 then out[j]:=true;
inc(j);
if j>n then j:=1;
end;
end;
for i:=1 to n do
if not out[j] then
begin
writeln(i);
break;
end;
end.
2樓：匿名使用者
既然認為不難，為什麼不自己動手寫一下呢？
有很多東西老師是不會教的，自學才是快速掌握知識的法寶
兩道數學填空題，兩道數學填空題
你好！bai！1 15分鐘 du1 4 小時，zhidao43立方專 厘公尺 43 1000 立方分公尺 2 在1 2，1 4，2 6，2 8，3 12，5 12，9 12，5 20，8 32這些分數中，大小屬相等的是.1 4 2 8 5 20 8 32 3 12還有什麼不明白的地方再問我。謝謝！1...
兩道數學選擇題，數學兩道選擇題
函式y由兩部分組成，我們設y1 e x，y2 e x 則y1在x軸上方，且y1在負無窮上趨近於零，在正無窮上趨近於無窮大，另外y1過點 0,1 而y2顯然與y1關於原點對稱，易知y2在x軸下方，且在負無窮上趨向無窮小 在正無窮上趨向零，另外y2過點 0,1 所以可知，y作為y1與y2的和函式，應該是...
求兩道概率題詳細解析，求教兩道數學概率題
1題 b 分析與解 將10張明信片編號，1，2到10 不妨設前三張能中獎。一共有10 9 90種分法。3張有獎明信被不同的人得到有90 5 6 60種概率為60 90 2 3 2題 e 分析與解 唯一沒有剩七個燈泡未試是前三個都是壞的，其概率為 3 10 2 9 1 8 1 120 所以至少剩七個燈...