比赛 小练习赛:A组 评测结果 C
题目名称 约数问题 最终得分 0
用户昵称 思邈然 运行时间 0.000 s
代码语言 Pascal 内存使用 0.00 MiB
提交时间 2014-10-21 19:45:20
显示代码纯文本
program cogs1757;
var
n,i,sum:longint;
function power(a,p,t:longint):int64;
begin
 if p=0 then exit(1);
 a:=a mod t;
 power:=power(a,p shr 1,t);
 power:=power*power mod t;
 if p and 1=1 then power:=(power*a)mod t;
end;
function mr(t:longint):boolean;
var i,m:longint;
begin
  for i:=1 to 32 do begin
      m:=random(t-2)+1;
      if power(m,t-1,t)<>1 then exit(false);
  end;
exit(true);end;
begin
assign(input,'pian_fen.in');reset(input);
assign(output,'pian_fen.out');rewrite(output);
readln(n);
writeln('No!');
close(input);close(output);
end.