Cod sursa(job #505292)

Utilizator vendettaSalajan Razvan vendetta Data 1 decembrie 2010 15:38:42
Problema Ridicare la putere in timp logaritmic Scor 100
Compilator fpc Status done
Runda Arhiva educationala Marime 0.48 kb
var n,p:longint;
function pute(a,n:int64):int64;
    var p:int64;
    begin
        p:=1;
        while n<>0 do
            begin
            if n mod 2=1 then
                p:=p*a mod 1999999973;
            a:=a*a mod 1999999973;
            n:=n div 2;
            end;
        pute:=p;
    end;

begin
    assign(input,'lgput.in');reset(input);
    assign(output,'lgput.out');rewrite(output);
    readln(n,p);
    writeln(pute(n,p));
    //close(f);close(g);
end.