Вычислить сумму многочлена

S = (1+1^2) + (1+2^2) + (1+3^2) + ...

Question

Витуля

7 декабря, 03:49

+2

Ответы (1)

Знаете ответ на вопрос?

Феофил · Answer 1

Var

S:real;

n:integer;

Begin

Write ('n = ') ;

ReadLn (n) ;

S:=0;

For n: = 1 to n do

S:=S + (1+n*n) ;

WriteLn ('S = ', S) ;

End.

Вычислить сумму многочленаS = (1+1^2) + (1+2^2) + (1+3^2) + ...