Cod sursa(job #551207)
| Utilizator |  Cioara Andrei Ioan andreifirst |
Data | 10 martie 2011 15:18:46 |
|---|---|---|---|
| Problema | Ridicare la putere in timp logaritmic | Scor | 100 |
| Compilator | fpc | Status | done |
| Runda | Arhiva educationala | Marime | 0.35 kb |
var n, p:int64;
sum, put:int64;
f, g:text;
begin
assign (f, 'lgput.in'); reset (f);
assign (g, 'lgput.out'); rewrite (g);
read (f, n, p);
sum:=1; put:=n;
while p <> 0 do
begin
if p mod 2 = 1 then sum:=sum*put mod 1999999973;
p:=p div 2;
put:= put*put mod 1999999973;
end;
write (g, sum);
close (f); close (g);
end.
