Cod sursa(job #1581630)
Utilizator | Data | 26 ianuarie 2016 22:47:07 | |
---|---|---|---|
Problema | Ridicare la putere in timp logaritmic | Scor | 10 |
Compilator | fpc | Status | done |
Runda | Arhiva educationala | Marime | 0.25 kb |
program ooo;
var n,p,r:longint;
f:text;
begin
assign(f,'lgput.in');
reset(f);
read(f,n,p);
r:=(trunc(exp(p*ln(n)))) mod 1999999973;
close(f);
assign(f,'lgput.out');
rewrite(f);
write(f,r);
close(f);
end.