Cod sursa(job #1126710)

Utilizator EuBossuletMuntea Andrei EuBossulet 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.