Cod sursa(job #872219)

Utilizator rotarraresRotar Rares rotarrares Data 5 februarie 2013 21:32:45
Problema Ridicare la putere in timp logaritmic Scor 10
Compilator fpc Status done
Runda Arhiva educationala Marime 0.39 kb
var n,p:longint;f,g:text;

function exp(x,p:longint):longint;
    Begin
    if p=1 then
       exp:=x
    else
       If p mod 2 = 0 then
          exp:=exp(x*x,trunc(p/2))
          else
          exp:=exp(x*x,trunc((p-1)/2));
    end;

Begin
assign(f,'lgput.in');reset(f);
assign(g,'lgput.out');rewrite(g);
readln(f,n,p);
writeln(g,exp(n,p) mod 1999999973);
close(f);
close(g);
end.