Cod sursa(job #330654)

Utilizator ionutz32Ilie Ionut ionutz32 Data 10 iulie 2009 23:35:51
Problema Ridicare la putere in timp logaritmic Scor 10
Compilator fpc Status done
Runda Arhiva educationala Marime 0.54 kb
var n,p,rez,r2:int64;
f,g:text;
function putere(x,y:int64):int64;
         var a:int64;
         begin
         if y=0 then
            putere:=1
         else
             if y mod 2=1 then
                putere:=putere(x,y-1)*x
             else
                 begin
                 a:=putere(x,y div 2);
                 putere:=a*a;
                 end;
         end;
begin
assign(f,'lgput.in');
assign(g,'lgput.out');
reset(f);rewrite(g);
read(f,n,p);
rez:=putere(n,p);
write(g,rez mod 1999999973);
close(f);close(g);
end.