Pagini recente » Cod sursa (job #735772) | Cod sursa (job #2393895) | Cod sursa (job #1194032) | preoni-2007/runda-finala/poze/premiere | 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.