Cod sursa(job #165692)
Utilizator | 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.