Pagini recente » Cod sursa (job #3186472) | Cod sursa (job #2951020) | Cod sursa (job #2364737) | Cod sursa (job #3229375) | Cod sursa (job #298253)
Cod sursa(job #298253)
Program Lgput;
const m=1999999973;
var n,p,rez : int64;
procedure Citeste;
var Intrare : text;
begin
assign(Intrare,'lgput.in');
reset(Intrare);
readln(Intrare,n,p);
close(Intrare);
end;
function pow(n,p : int64) : int64;
var k : int64;
begin
if p=0 then pow:=1
else
if p mod 2=1 then pow:=((n mod m)*pow(n,p-1)) mod m
else begin
k:=pow(n,p div 2);
pow:=k*k;
end;
end;
procedure Calculeaza;
begin
rez:=pow(n,p);
end;
procedure Scrie;
var Iesire : text;
begin
assign(Iesire,'lgput.out');
rewrite(Iesire);
write(Iesire,rez);
close(Iesire);
end;
begin
Citeste;
Calculeaza;
Scrie;
end.