Pagini recente » Cod sursa (job #2183324) | Cod sursa (job #2867380) | Cod sursa (job #2847403) | Cod sursa (job #1219917) | Cod sursa (job #730130)
Cod sursa(job #730130)
Program ridicare_timp_log;
var n,a,p : int64;
fi,fo : text;
begin
assign(fi,'lgput.in'); reset(fi); assign(fo,'lgput.out'); rewrite(fo);
read(fi,a,n); p:=1;
while n<>0 do begin
if n mod 2= 1 then begin p:=(p*a) mod 1999999973; a:=(a*a) mod 1999999973; end
else a:=(a*a) mod 1999999973;
n:=n div 2;
end;
write(fo,p);
close(fi); close(fo);
end.