Pagini recente » Cod sursa (job #1183419) | Cod sursa (job #2811736) | Cod sursa (job #2982544) | Cod sursa (job #2481751) | Cod sursa (job #153841)
Cod sursa(job #153841)
const m=1999999973;
var n,p:int64;
function calcul(n,p:int64):qword;
begin
if p=0 then calcul:=1
else if p mod 2=0 then
calcul:=calcul(n*n mod m,p div 2)
else calcul:=(n*calcul(n*n mod m,(p-1) div 2)) mod m;
end;
begin
assign(input,'lgput.in');
assign(output,'lgput.out');
reset(input);
rewrite(output);
readln(n,p);
N:=calcul(n,p);
writeln(n);
close(input);
close(output);
end.