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


Аноним: До каких пор считать?
koshutina1: До n
Аноним: Почему в условии не написано?
koshutina1: Это из рубрики: Догодайся сам
Аноним: В следующий раз за подобное просто удалю. Не спрашивая.
koshutina1: Ну как хотите...

Ответы

Ответ дал: Аноним
0
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=n+Сумма(i^2)
Вас заинтересует