Cod sursa(job #557461)

Utilizator ladyLittle Lady lady Data 16 martie 2011 17:55:02
Problema Ridicare la putere in timp logaritmic Scor 0
Compilator fpc Status done
Runda Arhiva educationala Marime 0.31 kb
Raporteaza aceasta sursa 
var x,n:longint;

function putere(x,n:longint):longint;
var a:longint;
begin
 if n=0 then begin
  putere:=1;
  exit;
 end;
 if n mod 2=0 then begin
  a:=putere(x,n div 2);
  putere:=a*a;
 end else begin
  a:=putere(x,n div 2);
  putere:=a*a*x;
 end;
end;

begin
readln(x,n);
write(putere(x,n));
end.