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.