Pagini recente » Cod sursa (job #153872) | Cod sursa (job #2432058) | Cod sursa (job #2924721) | Cod sursa (job #3281899) | Cod sursa (job #1183541)
const prim=1999999973;
var i,j,k,l,m,n,p:qword; f1,f2:text;
function Putere(n,p:qword):qword;
var t:qword;
begin
while (p>0) do begin
t:=1;
if p mod 2 = 1 then begin t:=(t*n) mod prim; Dec(p); end
else begin n:=(n*n) mod prim; p:= p div 2; end;
end;
Putere:=t;
end;
begin
assign(f1,'lgput.in');
reset(f1);
readln(f1,n,p);
close(f1);
assign(f2,'lgput.out');
rewrite(f2);
writeln(f2,Putere(n,p));
close(f2);
end.