Cod sursa(job #557464)
Utilizator | Data | 16 martie 2011 17:55:59 | |
---|---|---|---|
Problema | Ridicare la putere in timp logaritmic | Scor | 10 |
Compilator | fpc | Status | done |
Runda | Arhiva educationala | Marime | 0.42 kb |
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
assign(input,'lgput.in');reset(input);
assign(output,'lgput.out');rewrite(output);
readln(x,n);
write(putere(x,n));
close(input);close(output);
end.