Cod sursa(job #1143715)

Utilizator Mihai_ChihaiMihai Chihai Mihai_Chihai Data 15 martie 2014 21:31:06
Problema Ridicare la putere in timp logaritmic Scor 100
Compilator fpc Status done
Runda Arhiva educationala Marime 0.36 kb
program lgput;
 const r=1999999973;
   var n,p,m,rs:int64;


 begin
 assign(input,'lgput.in'); reset(input);
  readln(n,p);
  assign(output,'lgput.out'); rewrite(output);

  rs:=1;
  m:=n;
  while (p>0) do
    begin
      if p mod 2=1 then rs:=(rs*m)mod r;
      m:=(m*m)mod r;
      p:=p div 2;
    end;

  writeln(rs);
  close(output);
 end.