Cod sursa(job #1689618)

Utilizator laura.calimanLaura Caliman laura.caliman Data 14 aprilie 2016 13:40:13
Problema Ridicare la putere in timp logaritmic Scor 10
Compilator fpc Status done
Runda Arhiva educationala Marime 0.32 kb
Raporteaza aceasta sursa 
var n,p,i,k,a,b:int64;

begin
  assign(input,'lgput.in');
  assign(output,'lgput.out');
  reset(input);
  rewrite(output);
  read(n,p);
  k:=0;
  b:=1;
  while k<p do begin
    i:=1;
    a:=n;
    while i*2<p-k do begin
      a:=a*a;
      i:=i*2;
    end;
    b:=b*a;
    k:=k+i;
  end;
  write(b);
end.