Cod sursa(job #269143)

Utilizator philip_dugalleHadczy-Pop Filip philip_dugalle Data 2 martie 2009 15:56:07
Problema Ridicare la putere in timp logaritmic Scor 10
Compilator fpc Status done
Runda Arhiva educationala Marime 0.46 kb
var f,g:text;
    n,p:longint;

procedure citire;
  begin
    assign(f,'lgput.in');
    reset(f);
    readln(f,n,p);
    close(f);
    assign(g,'lgput.out');
    rewrite(g);
  end;

function putere(n,p:longint):int64;
  begin
    if p=0 then putere:=1
      else if odd(p) then putere:=n*putere(n,p-1)
        else putere:=sqr(putere(n,p div 2)) mod 1999999973;
  end;

begin
  citire;
  writeln(g,putere(n,p) mod 1999999973);
  close(g);
end.