Question

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

Answer 1

Ответ:

n = 6

S = 2.71

Объяснение:

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.

Answer 2

Конечно! Вот программа на языке Паскаль, которая вычисляет сумму s по заданной формуле и выводит результат на экран:

pascalCopy code
program SumCalculation;

var
  n, k: Integer;
  s: Real;

begin
  Write('Введите значение n: ');
  Readln(n);

  s := 0.0;

  for k := 1 to n do
    s := s + (k + 1) / (k * k + 1);

  writeln('Сумма s = ', s:0:2);
end.

После выполнения программы пользователь будет приглашен ввести значение n. В вашем случае, введите 9. Затем программа вычислит сумму и выведет результат на экран, округленный до сотых.