N слагаемых вида (i+1)вквадрате, где i=1,2,…, N

Вопрос от посетителя:

N слагаемых вида (i+1)вквадрате, где i=1,2,…, N

Илюха отвечает:

Программа на паскале:

Program xxx;

 Var i, n, s : integer;

begin

  write (‘введите N =’ );

  readln (n);

  s:=0;

  for i:=1 to n do

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

  writeln (‘сумма =’ , s);

  readln

end. 

Добавить свой ответ