Cod sursa(job #278243)

Utilizator andreirulzzzUPB-Hulea-Ionescu-Roman andreirulzzz Data 12 martie 2009 10:36:03
Problema Ridicare la putere in timp logaritmic Scor 10
Compilator fpc Status done
Runda Arhiva educationala Marime 0.25 kb
Raporteaza aceasta sursa 
program putere;
var n,p,i,j:longint;
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.