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

Question

Информатика

Ильич

23 сентября, 14:58

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

+5

Ответы (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