Pagini recente » Cod sursa (job #901438) | Cod sursa (job #2017499) | Cod sursa (job #669314) | Arhiva de probleme | Cod sursa (job #165692)
Cod sursa(job #165692)
var n,p:extended;
c:word;
f,g:text;
function power(x,n:extended):extended;
begin
if n=0 then power:=1
else if odd(trunc(n)) then power:=x*power(sqr(x),trunc((n-1))div 2)
else power:=power(sqr(x),trunc(n) div 2);
end;
begin
assign(f,'lgput.in'); reset(f);
assign(g,'lgput.out'); rewrite(g);
readln(f,n,p);
writeln(g,trunc(power(n,p))mod 1999999973);
close(f);close(g);
end.