Cod sursa(job #565744)
Utilizator | Data | 28 martie 2011 11:25:45 | |
---|---|---|---|
Problema | Ridicare la putere in timp logaritmic | Scor | 100 |
Compilator | fpc | Status | done |
Runda | Arhiva educationala | Marime | 0.38 kb |
program lgpu23t;
const fi='lgput.in';
fo='lgput.out';
mu=1999999973;
var f,g:text;
n,m,n1,i:longint;
p,t:qword;
begin
assign(f,fi);
reset(f);
assign(g,fo);
rewrite(g);
read(f,n,m);
t:=1;
p:=n;
for i:=1 to 63 do
begin
if m and 1=1 then
t:=(t*p) mod mu;
m:=m shr 1;
p:=(p*p) mod mu;
end;
write(g,t );
close(f);
close(g);
end.