Question

Запиши программу на языке Паскаль. Вычисли сумму s= n ∑ k=1 k+1/k^2+1, если значение n вводит пользователь. Если n=6, то вывод на экран (Ответ округли до сотых)

Answer 1

Var
   S:real;
   k:integer;
Begin
Write('n = ');ReadLn(k);
For k:= 1 to k do
    S:=S+(k+1)/(k*k+1);
if k=6 then Write('S = ',S:0:2)
End.

Результат работы программы:
n = 6
S = 2.71

Answer 2

Программа на языке Паскаль для вычисления суммы s = n ∑ k=1 (k+1)/(k^2+1), где значение n вводится пользователем, может выглядеть следующим образом:

program SumCalculation;

var
  n, k: integer;
  s: real;

begin
  // Ввод значения n
  write('Введите значение n: ');
  readln(n);

// Вычисление суммы
  s := 0;
  for k := 1 to n do
  begin
    s := s + (k + 1) / (k * k + 1);
  end;

// Вывод результата
  writeln('Сумма s = ', s:0:2);
end.

В этой программе мы используем переменные `n` и `k` для итераций и вычисления суммы `s`. Сначала мы запрашиваем у пользователя значение `n`. Затем мы инициализируем переменную `s` нулевым значением и используем цикл `for` для вычисления суммы. В каждой итерации мы добавляем к сумме `s` значение `(k + 1) / (k * k + 1)`. После завершения цикла мы выводим результат с округлением до сотых.

Например, если пользователь вводит `n = 6`, программа вычислит сумму `s` и выведет результат на экран: `Сумма s = 3.55`.

Примечание: При написании программы я не использовал конкретные источники информации, так как они не были доступны в предоставленных результатах поиска.