Cod sursa(job #209442)

Utilizator FllorynMitu Florin Danut Flloryn Data 22 septembrie 2008 16:08:35
Problema Ridicare la putere in timp logaritmic Scor 0
Compilator fpc Status done
Runda Arhiva educationala Marime 0.36 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*n;
      p:=p-1;
     end
   else
    begin
     n:=n*n;
     p:=p div 2;
    end;
 r:=r mod 1999999973;
 end;
write(g,r);
close(f);
close(g);
end.