發表新討論
#8468: why RE?


wenqining (wqn)

學校 : 上海外国语大学附属外国语学校
編號 : 34868
來源 : [61.92.137.28]
最後登入時間 ：
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.

 
ZeroJudge Forum