Cod sursa(job #278250)
| Utilizator |  UPB-Hulea-Ionescu-Roman andreirulzzz |
Data | 12 martie 2009 10:39:16 |
|---|---|---|---|
| Problema | Ridicare la putere in timp logaritmic | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva educationala | Marime | 0.25 kb |
program putere;
var n,p,i,j:int64;
begin
assign(input,'lgput.in');
reset(input);
read(input,n,p);
close(input);
j:=n;
for i:=1 to p-1 do
n:=n*j;
assign(output,'lgput.out');
rewrite(output);
write(output,n mod 1999999973);
close(output);
end.