решить задачу в цикле for или while через Pascal N^2+(n+1)^2+(n+2)^2+...+(2n)^2. Created by danilaman. informatika-ru

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

July 2022 1 13 Report

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

Answers & Comments

pacixor $\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.

2 votes Thanks 1

Answers & Comments

Напишите слитно или раздельно: (Не) нужная встреча, никому (не) нужная встреча, ...

Помогите пожалуйста составить рассказ где все глаголы имеют приставку -пере-...

Пож. Решите срочно кр по химии: 1) формула 3-метилбутен-1 2) Один изомер, Один г...

80 БАЛЛОВ. Постройте таблицы истинности...

70 баллов. Постройте таблицы истинности...

9, y=0,25...

Как отличить предлоги от других частей речи?...

Сумма двух углов на этом рисунке - 226 градусов. Найти остальные углы...

1. туристы были в пути три дня. В первый день они преодолели 36 процентов всего ...

Основания трапеции равны 4 и 6, а высота равна 4. Найдите среднюю линию этой тра...

рекомендуемые вопросы

Helpful Links

Helpful Social