Cod sursa(job #248598)

Utilizator Vlad_fiscaVlad Fisca Vlad_fisca Data 26 ianuarie 2009 08:20:26
Problema Ridicare la putere in timp logaritmic Scor 100
Compilator fpc Status done
Runda Arhiva educationala Marime 0.43 kb
program ab;
var f,g:text;
    a,c,n,m,b:int64;
begin
     assign(f,'lgput.in');
     assign(g,'lgput.out');
     reset(f);
     rewrite(g);
     read(f,a,n);
     c:=1;
     m:=n mod 1999999973; b:=a;
     while m<>0 do
     begin
          if m mod 2=1 then
             c:=(c*b) mod 1999999973;
          b:=b*b mod 1999999973;
          m:=m div 2;
     end;
     write(g,c);
     close(f);
     close(g);
end.