Cod sursa(job #1143708)

Utilizator Mihai_ChihaiMihai Chihai Mihai_Chihai Data 15 martie 2014 21:19:47
Problema Ridicare la putere in timp logaritmic Scor 10
Compilator fpc Status done
Runda Arhiva educationala Marime 0.42 kb
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;
  repeat
    if p mod 2=1 then begin
        p:=p-1;
        n:=(n*rs)mod r;
        end
        else begin
          p:=p div 2;
          n:=(n*n)mod r;
          end;
    until p=1;
  writeln(n);
  close(output);
 end.