Cod sursa(job #240453)
| Utilizator |  Romanescu Gabriela gabyroma |
Data | 7 ianuarie 2009 18:03:01 |
|---|---|---|---|
| Problema | Ridicare la putere in timp logaritmic | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva educationala | Marime | 0.3 kb |
program lgput;
var f,g:text;
n,p,x,i,j:longint;
begin
assign(f,'lgput.in');
assign(g,'lgput.out');
reset(f);
rewrite(g);
readln(f,n,p);
x:=n mod 1999999973;
for i:=1 to p div 2 do
x:=(x*x) mod 1999999973;
if p mod 2=1 then x:=x*n mod 1999999973;
writeln(g,x);
close(f);
close(g);
end.