Cod sursa(job #1143713)

Utilizator Mihai_ChihaiMihai Chihai Mihai_Chihai Data 15 martie 2014 21:27:49
Problema Ridicare la putere in timp logaritmic Scor 10
Compilator fpc Status done
Runda Arhiva educationala Marime 0.35 kb
Raporteaza aceasta sursa 
program lgput;
 const r=1999999973;
   var n,p,i,rs:int64;


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

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

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