Cod sursa(job #743452)

Utilizator RadioactivMihai Preguza Radioactiv Data 4 mai 2012 15:07:18
Problema Ridicare la putere in timp logaritmic Scor 0
Compilator fpc Status done
Runda Arhiva educationala Marime 0.39 kb
var a,b,c:int64;


function alab(b:int64):int64;
var aux:int64;
Begin
if b=1 then alab:=a
  else
    if odd(b) then alab:=a*alab(b-1)
    else
    begin
    aux:=alab(b div 2);
    alab:=aux*aux;
    end;
END;

BEGIN
  assign(input,'lgput.in');
  reset(input);
  readln(a,b);
  c:=1999999973;
  assign(output,' lgput.out');
  rewrite(output);

  writeln(alab(b) mod c);

end.