Cod sursa(job #1565030)
Utilizator | Data | 10 ianuarie 2016 12:00:53 | |
---|---|---|---|
Problema | Ridicare la putere in timp logaritmic | Scor | 0 |
Compilator | fpc | Status | done |
Runda | Arhiva educationala | Marime | 0.39 kb |
var n,p:integer;
f,g:text;
function PL(x,n:integer):longint;
var p:longint;
begin
p:=1;
while n>0 do begin
if n mod 2 =1 then begin
p:=p*x;
dec(n);
end;
x:=x*x;
n:=n div 2;
end;
PL:=p;
end;
begin
assign (f,'lgput.in');
reset(f);
assign(g,'lgput.out');
rewrite(g);
readln(f,n,p);
close(f);
write(g,PL(n,p)mod 1999999973);
close(g);
end.