Cod sursa(job #161193)

Utilizator netedu_andreiFII Andrei Netedu netedu_andrei Data 17 martie 2008 18:25:31
Problema Ridicare la putere in timp logaritmic Scor 0
Compilator fpc Status done
Runda Arhiva educationala Marime 0.3 kb
Raporteaza aceasta sursa 

var f,g:text;
    a,b,aux:longint;
assign(f,'lgput.in');reset(f);
assign(g,'lgput.out');rewrite(g);
readln(f,a,b);
aux:=1;
while b>0 do 
   begin
   if b mod 2=1 then aux=(aux*a) mod 1999999973;
    a=(a*a) mod 1999999973;
    b=b div 2;
    end;
writeln(g,aux);
close(f);
close(g);
end.