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

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

Задать свой вопрос
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
Oleg Terochkin
спасибо
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт