Pagini recente » Cod sursa (job #1468746) | Cod sursa (job #1099856) | Cod sursa (job #72457) | Cod sursa (job #589726) | Cod sursa (job #557464)
Cod sursa(job #557464)
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.