Дано целое число N(Namp;gt;0). Отыскать сумму 1+(1+N)^2+(2+N)^2+....+(N+N)^2

Дано целое число N(Ngt;0). Отыскать сумму 1+(1+N)^2+(2+N)^2+....+(N+N)^2

Задать свой вопрос
2 ответа
Var
S:real;
N,i:integer;
Begin
Write('N = ');
ReadLn(N);
S:=1;
For i:= 1 to N do
    S:=S+Sqr(i+N);
WriteLn('S = ',S);
End.
\displaystyle S=1+(1+n)^2+(2+n)^2+...+(n+n)^2=1+\sum_i=1^n(i+n)^2

// PascalABC.NET 3.2, сборка 1389 от 01.03.2017
// Внимание! Если программка не работает, обновите версию!

begin
  var n:=ReadInteger('n=');
  var s:=1+Range(1,n).Select(i-gt;sqr(i+n)).Sum;
  Writeln('S=',s)
end.

Пример
n= 10
S=2486
Влад Левинтон
так можно короче)
Намист Даша
begin var n := ReadInteger('n='); PrintLn('S=', 1 + Range(1, n).Select(i -> sqr(i + n)).Sum);end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт