Cod sursa(job #742990)

Utilizator vasile_pojogaPojoga Vasile vasile_pojoga Data 2 mai 2012 18:21:07
Problema Ridicare la putere in timp logaritmic Scor 100
Compilator fpc Status done
Runda Arhiva educationala Marime 0.55 kb
program putere;
const md=1999999973;
var x,n,p:qword;
begin
assign(input,'lgput.in'); reset(input);
assign(output,'lgput.out'); rewrite(output);
read(x,n);
close(input);
p:=1;
while n>0 do
             if n mod 2=0 then begin
                               x:=x*x mod md;
                               n:=n div 2
                               end
                          else begin
                               p:=(p*x) mod md;
                               n:=n-1;
                               end;
write(p);
close(output);
end.