Question

Люди, помогите, пожалуйста! Я что-то не пойму:
1) Что находится в "...";
2) Какой принцип тут можно использовать за условие в while?
3) Как это решить?

Answer 1

Представь члены этой суммы в таком виде: 2/3 = 2*1^2/3, 8/3 = 2*2^2/3,
18/3 = 2*3^2/3
То есть они все построены по общей формуле 2n^2/3.
Под "..." скрываются члены от 4 до 15.
S = 2*1^2/3 + 2*2^2/3 + 2*3^2/3 + 2*4^2/3 + 2*5^2/3 + 2*6^2/3 + 2*7^2/3 +
2*8^2/3 + 2*9^2/3 + 2*10^2/3 + 2*11^2/3 + 2*12^2/3 + 2*13^2/3 + 2*14^2/3 +
2*15^2/3
В цикле, естественно, надо менять номер n. Примерно так:
var n: integer, S: double;
BEGIN
S:=0; n:= 1;
While n <= 15 do
begin
S:= S + 2*n*n/3;
n:=n+1;
end;
write S;
END.

Answer 2

$\displaystyle s=\sum_{i=1}^{15} \frac{2i^2}{3}= \frac{2}{3}\sum_{i=1}^{15} i^2$

var
  i:integer;
  s:double;
begin
  s:=0; i:=1;
  while i<=15 do begin s:=s+sqr(i); Inc(i) end;
  Writeln(2*s/3)
end.

Результат выполнения программы:
826.666666666667