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

Вопрос школьника по предмету Информатика

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

Ответ учителя по предмету Информатика

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