Напишите рекурсивную функцию, возводящую число a - вопрос №3602436 от елена1210 03.10.2021 13:21

Question

Информатика: Напишите рекурсивную функцию, возводящую число a в степень n. гарантируется, что все числа помещаются в стандартные вещественные (a и ответ) и целые (n) типы. входные данные вводится 2 числа - a и n (число n может быть отрицательным). выходные данные необходимо вывести значение an примеры входные данные 2 -1 выходные данные 0.5

елена1210 · Answer

Var  a,f: real;  n,i,g: integer;begin  read(a,n);  if n 0 then begin   g:=n;   n:=-n;  end;  f:=1;  for i:=1 to n do   f:=a*f;  if g 0 then write(1/f)  else write(f);  readln;  readlnend. ...