Cod sursa(job #549737)
| Utilizator |  pop darius darius96 |
Data | 8 martie 2011 21:52:10 |
|---|---|---|---|
| Problema | Ridicare la putere in timp logaritmic | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva educationala | Marime | 0.22 kb |
var i,s,n,p:integer;
begin
assign(input,'lgput.in');reset(input);
assign(output,'lgput.out');rewrite(output);
readln(n,p);s:=1;
for i:=1 to p do s:=s*n;
write(s mod 1999999973);
close(input);close(output);
end.