Question

ПОМОГИТЕ, ПОЖАЛУЙСТА!!! Запиши программу на языке Паскаль. Вычисли сумму s=∑k=1nk+1k2+1, если значение n вводит пользователь. Если n=4, то вывод на экран (Ответ округли до сотых)

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:

pascalCopy code
program SumCalculation;

var
  n: integer;
  k: integer;
  s: real;

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

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

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

При вводе значения n = 4 программа выведет на экран Сумма s = 4.52.