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

Question

Информатика

Хушруй

27 сентября, 06:05

Написать программу вычисления суммы 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.