Cod sursa(job #161195)

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

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.