Cod sursa(job #714666)
Utilizator | Data | 15 martie 2012 22:36:58 | |
---|---|---|---|
Problema | Ridicare la putere in timp logaritmic | Scor | 10 |
Compilator | fpc | Status | done |
Runda | Arhiva educationala | Marime | 0.39 kb |
program putere_lg;
var n,p,c:longint;
f,g:text;
begin
assign (f,'lgput.in'); reset (f);
assign (g,'lgput.out'); rewrite (g);
read (f,n,p);
c:=1;
while (p>0) do
begin if (p mod 2=1) then begin c:=(c*n) mod 1999999973;
p:=p-1;
end;
n:=n*n;
p:=p div 2;
end;
write (g,c);
close (f);
close (g);
end.