Вычислить значение выражения, используя рекурсивный метод - Pascal ABC

Формулировка задачи:

Вычислить значение выражения, используя рекурсивный метод:

Код к задаче: «Вычислить значение выражения, используя рекурсивный метод - Pascal ABC»

textual
Function sqn(a,n : Byte) : Real;
Begin
  If a<=n then sqn:=sqrt(sqr(a)+sqn(a+1,n)) else sqn:=0;
end;
 
Begin
  Writeln(sqn(1,10));
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

8   голосов, оценка 3.375 из 5


СДЕЛАЙТЕ РЕПОСТ