Cod sursa(job #505285)
| Utilizator |  Salajan Razvan vendetta |
Data | 1 decembrie 2010 14:20:27 |
|---|---|---|---|
| Problema | Ridicare la putere in timp logaritmic | Scor | 10 |
| Compilator | fpc | Status | done |
| Runda | Arhiva educationala | Marime | 0.34 kb |
var
f,g:Text;
p,a,n:longint;
begin
assign(F,'lgput.in');reset(f);
assign(g,'lgput.out');rewrite(g);
read(f,a,n);
p:=1;
while n<>0 do
begin
if n mod 2=1 then p:=p*a mod 1999999973;
n:=n div 2;
a:=a*a mod 1999999973;
end;
write(G,p);
close(F);close(G);
end.
