Cod sursa(job #565725)

Utilizator promix2012petruta andrei promix2012 Data 28 martie 2011 11:04:05
Problema Ridicare la putere in timp logaritmic Scor 10
Compilator fpc Status done
Runda Arhiva educationala Marime 0.49 kb
program lgpu23t;
const fi='lgput.in';
       fo='lgput.out';
       mu=1999999973;
var f,g:text;
n,m:longint;
function ridic_div(a,b:longint):longint;
begin
if b=1 then
   ridic_div:=a else
begin
if b mod 2=1 then
ridic_div:=(ridic_div(a,b div 2)*ridic_div(a,b div 2)*a)mod mu
else
ridic_div:=(ridic_div(a,b div 2)*ridic_div(a,b div 2))mod mu
 end;
end;

begin
assign(f,fi);
reset(f);
assign(g,fo);
rewrite(g);
read(f,n,m);
write(g,ridic_div(n,m));
close(f);
close(g);
end.