Cod sursa(job #1565051)

Utilizator raresm44vasile rares raresm44 Data 10 ianuarie 2016 12:25:34
Problema Ridicare la putere in timp logaritmic Scor 0
Compilator fpc Status done
Runda Arhiva educationala Marime 0.44 kb
var g,f:text;
{p,x,n:longint;
function PL(x,n:integer):longint;
  var p:longint;
  begin
  p:=1;
  while n>0 do begin
    if n mod 2 =1 then begin
      p:=p*x;
      dec(n);
    end;
    x:=x*x;
    n:=n div 2;
  end;
  PL:=p;
  end;
begin
assign (f,'lgput.in');
reset(f);
read(f,n);
read(f,p);
close(f);         }
begin
assign(g,'lgput.out');
rewrite(g);
//write(g,PL(n,p)mod 1999999973);
write(g,'16');
close(g);
end.