Cod sursa(job #367795)
| Utilizator |  Morariu Razvan aghamat |
Data | 23 noiembrie 2009 15:41:13 |
|---|---|---|---|
| Problema | Ridicare la putere in timp logaritmic | Scor | 100 |
| Compilator | fpc | Status | done |
| Runda | Arhiva educationala | Marime | 0.31 kb |
program lgput;
var m,n,p,c:int64;
f,g:text;
begin
assign(f,'lgput.in'); reset(f);
assign(g,'lgput.out'); rewrite(g);
read(f,p,n);
m:=p mod 1999999973;
c:=1;
while n<>0 do
begin
if n mod 2=1 then c:=(c*m) mod 1999999973;
m:=(m*m) mod 1999999973;
n:=n div 2
end;
write(g,c);
close(f); close(g);
end.