Решить задачу в цикле for или while через Pascal N^2+(n+1)^2+(n+2)^2+…+(2n)^2

Реклама

• Попроси больше объяснений
• Следить
• Отметить нарушение

Danilaman

6 дней назад
Войти чтобы добавить комментарий

Ответы и объяснения

Лучший Ответ!

• pacixor
• светило науки

Var i, n, res: integer;
begin
res := 0;
write( ‘n = ‘ );
readln(n);
for i := 1 to n do
  res := res + (( n + i ) * ( n + i ));
res := res + n * n;
writeln( res );
end.

• Комментарии
• Отметить нарушение

5.0

2 оценки

2 оценки

Оцени!

Оцени!
Спасибо1Войти чтобы добавить комментарий

• Эникей
• главный мозг

1. Современное решение

PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger(‘n=’);
  Writeln(‘S=’,SeqGen(n+1,i->Sqr(n+i)).Sum)
end.

Пример
n= 5
S=355

2. Примерно так часто учат в школе

var
  s,i,n:integer;

begin
  Write(‘n= ‘);
  Read(n);
  s:=0;
  for i:=0 to n do
    s:=s+Sqr(n+i);
  Writeln(‘S=’,s)
end.

• Комментарии (1)
• Отметить нарушение

5.0

1 оценка

1 оценка

Оцени!

Оцени!
Спасибо1
Если что-то отображается некорректно, обновите страницу.
Войти чтобы добавить комментарий

Реклама