Написать программу вычисления суммы n слагаемых вида: (i+1) (в квадрате), где i=1,2,3, ... n

Question

Информатика

Авиль

10 февраля, 22:33

Написать программу вычисления суммы n слагаемых вида: (i+1) (в квадрате), где i=1,2,3, ... n

+2

Ответы (1)

Знаете ответ?

Хафаза · Answer 1

Var

n, i: Integer;

summa: Real;

begin

Write ('Сколько слагаемых? ') ;

readln (n) ;

for i : = 1 to n do

summa : = summa + sqr (i + 1) ;

WriteLn ('Сумма ряда = ', summa) ;

end.