Cod sursa(job #187242)

Utilizator the.truth412Puscas Sergiu the.truth412 Data 2 mai 2008 13:28:25
Problema Ridicare la putere in timp logaritmic Scor 10
Compilator fpc Status done
Runda Arhiva educationala Marime 0.29 kb
program lgput;
var r,x:real;
    n,i,p,d:longint;
    f,g:text;
begin
  assign(f,'lgput.in');
    reset(f);
  assign(g,'lgput.out');
    rewrite(g);
  read(f,n,p);
  d:=n;
  for i:= 2 to p do n := n * d;
  r:=n mod 1999999973;
  write(g,trunc(r));
  close(f);
  close(g);
end.