Question

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

Answer 1

$\displaystyle S= n^2+(n+1)^2+(n+2)^2+...+(2n)^2= \\ (n+0)^2+(n+1)^2+(n+2)^2+...+(n+n)^2; \\ \boxed{S=\sum_{i=0}^n(n+i)^2}$

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.

Answer 2

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.

Answer 3

Для решения данной задачи через цикл for или while в Pascal, нам нужно посчитать сумму выражения N^2 + (n+1)^2 + (n+2)^2 + ... + (2n)^2 для заданного значения N. Для этого создадим переменную для хранения суммы и воспользуемся циклом, чтобы последовательно добавлять к ней значения выражения.

Вот пример решения задачи через цикл for в Pascal:

pascalCopy code
program SumOfSquares;

var
  N, n, sum, i: Integer;

begin
  // Вводим значение N
  Write('Введите значение N: ');
  ReadLn(N);

  sum := 0;
  n := N;

  for i := 0 to N do
  begin
    sum := sum + n*n;
    Inc(n);
  end;

  WriteLn('Сумма выражения равна: ', sum);
end.

Альтернативное решение с использованием цикла while:

pascalCopy code
program SumOfSquares;

var
  N, n, sum, i: Integer;

begin
  // Вводим значение N
  Write('Введите значение N: ');
  ReadLn(N);

  sum := 0;
  n := N;
  i := 0;

  while i <= N do
  begin
    sum := sum + n*n;
    Inc(n);
    Inc(i);
  end;

  WriteLn('Сумма выражения равна: ', sum);
end.

Оба этих примера кода решают задачу и вычисляют сумму выражения N^2 + (n+1)^2 + (n+2)^2 + ... + (2n)^2 для заданного значения N. Введите значение N и программа выдаст результат.