Cod sursa(job #159323)
| Utilizator |  Muresan Tudor smecheru_tudy |
Data | 14 martie 2008 07:41:52 |
|---|---|---|---|
| Problema | Ridicare la putere in timp logaritmic | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva educationala | Marime | 0.29 kb |
var n,p,a,r,t:int64;
begin
assign(input,'logput.in');reset(input);
assign(output,'logput.out');rewrite(output);
readln(a,n);
r:=1;t:=1999999973;
while n<>0 do begin
if n mod 2=1 then r:=r*a mod t;
a:=a*a mod t;
n:=n div 2;
end;
write(r);
close(input);close(output);
end.
