gate 1994

Question

Function what(x, n:integer): integer:
Var
value : integer
begin
value := 1
if n > 0 then
begin
if n mod 2 =1 then
value := value * x;
value := value * what(x*x, n div 2);
end;
what := value;
end;

 

 

convert the code in c

Comments

https://gateoverflow.in/2502/gate1994_6