#8907: 为何错


happy1223 (吕意捷)

學校 : 上海市娄山中学
編號 : 40639
來源 : [114.93.47.236]
最後登入時間 :
2015-05-27 21:00:27
d636. 大爆炸bomb -- jack1 | From: [222.66.36.254] | 發表日期 : 2014-06-26 14:32

var
  a,n:int64;

function f(a,n:int64):int64;
  var
    t:int64;
  begin
    if a=0 then exit(0);
    if a=1 then exit(1);


    if a=-1 then if n mod 2=0 then exit(1) else exit(-1); 


    if n=1 then exit(a);
    if n=0 then exit(1);
    t:=f(a,n div 2);
    f:=t*t;
    if n mod 2=1 then f:=f*a;
  end;

begin
  while not eof do begin
  readln(a,n);
  writeln(f(a,n)mod 10007);
  end;
end.

 
ZeroJudge Forum