решить задачу в цикле 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 10 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

napishite slitno ili razdelno ne nuzhnaya vstrecha nikomu ne nuzhnaya vstrecha

pomogite pozhalujsta sostavit rasskaz gde vse glagoly imeyut pristavku pere

pozh reshite srochno kr po himii 1 formula 3 metilbuten 1 2 odin izomer odin g

80 ballov postrojte tablicy istinnosti

70 ballov postrojte tablicy istinnosti

9, y=0,25...

kak otlichit predlogi ot drugih chastej rechi

summa dvuh uglov na etom risunke 226 gradusov najti ostalnye ugly

1 turisty byli v puti tri dnya v pervyj den oni preodoleli 36 procentov vsego

osnovaniya trapecii ravny 4 i 6 a vysota ravna 4 najdite srednyuyu liniyu etoj tra

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

Helpful Links

Helpful Social