Cod sursa(job #1143634)
| Utilizator | 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.