Cod sursa(job #1093793)

Utilizator Vele_GeorgeVele George Vele_George Data 28 ianuarie 2014 17:00:31
Problema Ridicare la putere in timp logaritmic Scor 50
Compilator fpc Status done
Runda Arhiva educationala Marime 0.37 kb
var a,n:qword;
    f,g:text;
function rp(a,n:qword):qword;
 begin
  if n=1 then rp:=a
         else
  if (n mod 2=0) then rp:=(sqr(rp(a,n div 2))) mod 1999999973
                 else rp:=(sqr(rp(a,n div 2))*a) mod 1999999973;
 end;
begin
 assign(f,'lgput.in');reset(f);
 assign(g,'lgput.out');rewrite(g);
 readln(f,a,n);
 write(g,rp(a,n));
 close(f);
 close(g);
end.