Cod sursa(job #159324)
| Utilizator |  Capalna Tanase Tase_C |
Data | 14 martie 2008 07:42:22 |
|---|---|---|---|
| Problema | Ridicare la putere in timp logaritmic | Scor | 100 |
| Compilator | fpc | Status | done |
| Runda | Arhiva educationala | Marime | 0.29 kb |
var r,a,t,n:int64;
begin
assign(input,'lgput.in');reset(input);
assign(output,'lgput.out');rewrite(output);
read(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;
writeln(r mod t);
close(input);close(output);
end.