Cod sursa(job #209445)

Utilizator FllorynMitu Florin Danut Flloryn Data 22 septembrie 2008 16:14:44
Problema Ridicare la putere in timp logaritmic Scor 0
Compilator fpc Status done
Runda Arhiva educationala Marime 0.42 kb
program pascal;
var f,g:text;    r,n,p:int64;
begin
assign(f,'igput.in'); reset(f);
assign(g,'igput.out'); rewrite(g);
read(f,n,p);
r:=1;
while p<>0 do
 begin
 if (p mod 2=1) then
     begin
      r:=(r mod 1999999973)*(n mod 1999999973) ;
      p:=p-1;
     end
   else
    begin
     n:=(n mod 1999999973)*(n mod 1999999973);
     p:=p div 2;
    end;
 end;
write(g,r mod 1999999973);
close(f);
close(g);
end.