比赛代码 - COGS

比赛	20091023练习题	评测结果	WWWWWWWWWW
题目名称	质数取石子	最终得分	0
用户昵称	bly1991	运行时间	0.000 s
代码语言	Pascal	内存使用	0.00 MiB
提交时间	2009-10-26 11:40:40

显示代码纯文本

program bly(input,output);
var
  n,s:integer;
  i,j,a:integer;
  f1,f2:text;
begin
  assign(f1,'stonegame.in');
  reset(f1);
  readln(f1,n);
  assign(f2,'stonegame.out');
  rewrite(f2);
  for i:=1 to n do begin
    readln(f1,a);
    s:=0;
    repeat
      j:=j+1;
      if a mod j=0 then s:=1;
    until j>=sqrt(a);
    if s=0 then writeln(f2,'1')
           else writeln(f2,'-1');
  end;
  close(f1);
  close(f2);
end.