×
解除綁定，重新設定系統帳號的密碼
您的系統帳號 ID：
您的系統帳號：
您的帳號暱稱：
設定新密碼：
設定新密碼：
×
請輸入要加入的「課程代碼」
請向開設課程的使用者索取「課程代碼」
分類題庫
解題動態
排行榜
討論區
競賽區
登入
註冊
發表新討論
#8468: why RE?
wenqining
(wqn)
學校:
上海外国语大学附属外国语学校
編號:
34868
×
傳送站內訊息
傳給：
主題：
內容：
來源:
[61.92.137.28]
註冊時間:
2013-09-14 17:14:18
最後登入時間:
2017-02-17 20:13:59
d709.
判断质数（一）
--
判断质数系列
| From: [180.172.54.37] | 發表日期: 2013-12-21 14:01
var
n:array[2..9000000] of boolean;
i,j:longint;
k:longint;
input:longint;
begin
while not eof do
begin
fillchar(n,sizeof(n),false);
i:=1;
readln(input);
repeat
inc(i);
if n[i]=false then
for j:=2 to (input div i) do
n[i*j]:=true;
until (i=trunc(sqrt(input))) or (n[input]=true);
if n[input]=false then writeln('a')
else writeln('b');
end;
end.