Cod sursa(job #165692)

Utilizator kolapsysPostelnicu Dan Marian kolapsys Data 26 martie 2008 16:25:05
Problema Ridicare la putere in timp logaritmic Scor 10
Compilator fpc Status done
Runda Arhiva educationala Marime 0.47 kb
var n,p:extended;
    c:word;
    f,g:text;
function power(x,n:extended):extended;
begin
     if n=0 then power:=1
            else if odd(trunc(n)) then power:=x*power(sqr(x),trunc((n-1))div 2)
                           else power:=power(sqr(x),trunc(n) div 2);
end;
begin
        assign(f,'lgput.in'); reset(f);
        assign(g,'lgput.out'); rewrite(g);
        readln(f,n,p);
        writeln(g,trunc(power(n,p))mod 1999999973);
        close(f);close(g);
end.