Cod sursa(job #160994)

Utilizator ancutza96Anca Grigoriu ancutza96 Data 17 martie 2008 14:33:13
Problema Ridicare la putere in timp logaritmic Scor 10
Compilator fpc Status done
Runda Arhiva educationala Marime 0.33 kb
program p4;
var f,g:text;
    a,b,c,aux:longint;
begin
assign(f,'lgput.in');reset(f);
assign(g,'lgput.out');rewrite(g);
readln(f,a,b,c);
aux:=1;
c:=1999999973;
while b>0 do
      begin
      if b mod 2=1 then
      aux:=(aux*a)mod c;
      b:=b div 2;
      a:=(a*a) mod c;
      end;
write(g,aux);
close(f);
close(g);
end.