Срочно, очень срочно нужно решить задачу через паскаль, используя рекурссию!! пожалуйста!!! заранее спасибо!!
Срочно, очень срочно нужно решить задачу через паскаль, используя рекурссию!! пожалуйста!!! заранее спасибо!!
Ответ(ы) на вопрос:
Гость
function f(x:real; k:integer):real;
begin
if k=1
then f:=x
else if k mod 2=0
then f:=sqr(f(x,k div 2))
else f:=sqr(f(x,(k-1) div 2))*x;
end;
var a:real; n:integer;
begin
write('a = ');
readln(a);
write('n = ');
readln(n);
writeln(a,'^',n,' = ',f(a,n));
end.
Пример:
a = 2
n = 10
2^10 = 1024
Не нашли ответ?
Похожие вопросы