Вычисли сумму s=n∑k=1 k+1/k*k+1, если значение n вводит пользователь. Если n=10
Вычисли сумму s=n∑k=1 k+1/k*k+1, если значение n вводит пользователь. Если n=10
Гость
Ответ(ы) на вопрос:
Гость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
Не нашли ответ?
Похожие вопросы