Составить пользовательскую процедуру или функцию для вычисление суммы:

(1^1+1) / 1 + (2^2+1) / (12) + (3^3+1) / (123) + ... + (n^n+1) / (1234 * ... * n) ;

Question

Информатика

Васс

19 июля, 16:21

Составить пользовательскую процедуру или функцию для вычисление суммы:

(1^1+1) / 1 + (2^2+1) / (12) + (3^3+1) / (123) + ... + (n^n+1) / (1234 * ... * n) ;

+5

Ответы (1)

Знаете ответ на вопрос?

Евдений · Answer 1

Function Sum (n:integer) : real;

Var

F, St, S:real;

i:integer;

Begin

F:=1;

S:=0;

For n: = 1 to n do

Begin

F:=F*n;

St:=1;

For i: = 1 to n do

St:=St*n;

S:=S + (St+1) / F;

End;

Sum:=S;

End;

Var

n:integer;

Begin

Write ('n = ') ; ReadLn (n) ;

WriteLn ('Сумма: ', Sum (n))

End.

Составить пользовательскую процедуру или функцию для вычисление суммы:(1^1+1) / 1 + (2^2+1) / (1*2) + (3^3+1) / (1*2*3) + ... + (n^n+1) / (1*2*3*4 * ... * n) ;

Составить пользовательскую процедуру или функцию для вычисление суммы:

(1^1+1) / 1 + (2^2+1) / (12) + (3^3+1) / (123) + ... + (n^n+1) / (1234 * ... * n) ;