Cod sursa(job #278255)
Utilizator | UPB-Hulea-Ionescu-Roman andreirulzzz | Data | 12 martie 2009 10:40:49 |
---|---|---|---|
Problema | Ridicare la putere in timp logaritmic | Scor | 0 |
Compilator | fpc | Status | done |
Runda | Arhiva educationala | Marime | 0.26 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;
n:=n mod 1999999973;
assign(output,'lgput.out');
rewrite(output);
write(output,n);
close(output);
end.