Cod sursa(job #631729)

Utilizator lsorin_94Lodoaba Sorin lsorin_94 Data 9 noiembrie 2011 18:35:59
Problema Ridicare la putere in timp logaritmic Scor 0
Compilator fpc Status done
Runda Arhiva educationala Marime 0.3 kb
Raporteaza aceasta sursa 
program exprapid;
var n,p:int64;
    i:longint;
    f:text;
begin
  assign(f,'lgput.in');
  reset(f);
  read(f,n,p);
  close(f);
  for i:=1 to (p div 2+1) do
    n:=(n mod 1999999973)*(n mod 1999999973);
  assign(f,'lgput.out');
  rewrite(f);
  write(f,n mod 1999999973);
  close(f);
end.