Cod sursa(job #187243)

Utilizator the.truth412Puscas Sergiu the.truth412 Data 2 mai 2008 13:30:31
Problema Ridicare la putere in timp logaritmic Scor 10
Compilator fpc Status done
Runda Arhiva educationala Marime 0.31 kb
program lgput;
var r: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;
       if n>1 then
       for i:= 2 to p do n := n * d;
  r:=n mod 1999999973;
  write(g,trunc(r));
  close(f);
  close(g);
end.