Pagini recente » Cod sursa (job #3030119) | Cod sursa (job #2620352) | Rating Papa Cristian (cristianpapa2000) | Cod sursa (job #2270394) | Cod sursa (job #1386260)
program putere;
const c=1999999973;
var x,n:longint;
f,g:text;
function putere(x,n:longint):longint;
begin
if n=0 then putere:=1
else if n=1 then putere:=x
else if n mod 2 = 1 then
putere:=((x mod c)*(putere(x,n-1) mod c))
else
putere:=putere(((x mod c)*(x mod c)),n div 2)
end;
begin
assign(f,'lgput.in'); reset(f);
assign(g,'lgput.out'); rewrite(g);
readln(f,x,n);
writeln(g,putere(x,n)mod c);
close(f); close(g);
end.