Cod sursa(job #1143634)

Utilizator atatomirTatomir Alex atatomir Data 15 martie 2014 19:45:13
Problema Ridicare la putere in timp logaritmic Scor 10
Compilator fpc Status done
Runda Arhiva educationala Marime 0.39 kb
var n,k:int64;

function poww(n,k:int64):int64;
begin
  if k = 1 then poww := n else
  begin
    if k mod 2 = 1 then
      poww := n*poww(n*n,k div 2)
    else
      poww :=   poww(n*n,k div 2);
  end;
end;

begin
  assign(input,'lgput.in'); reset(input);
  assign(output,'lgput.out'); rewrite(output);

  readln(n,k);
  writeln(poww(n,k));


  close(input);
  close(output);
end.