Cod sursa(job #1126710)
Utilizator | Data | 27 februarie 2014 09:17:56 | |
---|---|---|---|
Problema | Ridicare la putere in timp logaritmic | Scor | 20 |
Compilator | fpc | Status | done |
Runda | Arhiva educationala | Marime | 0.38 kb |
Program logput;
var f,q:text;
n,p,aux:int64;
i:longint;
begin
assign(f,'lgput.in');
reset(f);
assign(q,'lgput.out');
rewrite(q);
readln(f,n,p);
n:=n mod 1999999973;
p:=p mod 1999999973;
aux:=n;
i:=2;
while i<=p do
begin
n:=((n mod 1999999973)* (aux mod 1999999973)) mod 1999999973;
inc(i);
end;
writeln(q,n);
close(f);
close(q);
end.