Рекурсия
Вычислить для n=7 и n=10 1+2^3+3^3+…+n^3.
Решение с помощью Turbo Pascal
Решение с помощью Turbo Pascal
[CODE=F#]
let rec func n =
if n = 1 then 1 else 3 + 10 * n + func(n-1)
[/CODE]
let rec func n =
if n = 1 then 1 else 3 + 10 * n + func(n-1)
[/CODE]
[CODE=F#]
let rec TurboPascal n =
if n = 1 then 1 else 3 + 10 * n + TurboPascal(n-1)
[/CODE]
let rec TurboPascal n =
if n = 1 then 1 else 3 + 10 * n + TurboPascal(n-1)
[/CODE]