Cod sursa(job #505285)

Utilizator vendettaSalajan Razvan vendetta Data 1 decembrie 2010 14:20:27
Problema Ridicare la putere in timp logaritmic Scor 10
Compilator fpc Status done
Runda Arhiva educationala Marime 0.34 kb
var
    f,g:Text;
    p,a,n:longint;
begin
    assign(F,'lgput.in');reset(f);
    assign(g,'lgput.out');rewrite(g);
    read(f,a,n);
    p:=1;
    while n<>0 do
        begin
        if n mod 2=1 then p:=p*a mod 1999999973;
        n:=n div 2;
        a:=a*a mod 1999999973;
        end;
    write(G,p);
    close(F);close(G);
end.