Вычисли сумму s=n∑k=1 k+1/k*k+1, если значение n вводит пользователь. Если n=10

Question

Информатика

Фессалоникия

11 сентября, 20:45

Вычисли сумму s=n∑k=1 k+1/k*k+1, если значение n вводит пользователь. Если n=10

+2

Ответы (1)

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

Петрай · Answer 1

Var

S:real;

k:integer;

Begin

Write ('n = ') ;

ReadLn (k) ;

S:=0;

For k: = 1 to k do

S:=S + (k+1) / (k*k+1) ;

WriteLn ('S = ', S) ;

End.

Пример:

n = 10

S = 3.24339971608009