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

Question

Информатика

Ленура

26 января, 02:48

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

+3

Ответы (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.