Cod sursa(job #1412372)

Utilizator casianos1996Marc Casian Nicolae casianos1996 Data 1 aprilie 2015 11:46:45
Problema Ridicare la putere in timp logaritmic Scor 100
Compilator fpc Status done
Runda Arhiva educationala Marime 0.45 kb
program exprap_pregatire_oni;
var     f,g:text;
        n,sol,p:int64;
const   modulo=1999999973;
begin
  assign(f,'lgput.in'); reset(f);
  assign(g,'lgput.out'); rewrite(g);
  readln(f,n,p);
  n:=n mod modulo;
  sol:=1;
  while p>0 do
    begin
      if p mod 2 =1 then sol:=(sol mod modulo ) * (n mod modulo);
      n:=(n mod modulo) * (n mod modulo);
      p:=p div 2;
    end;
    writeln(g,sol mod modulo);
  close(f);
  close(g);
end.