[zheksn]

Вычислить сумму,если Y=( ∑сверху 25,а снизу i=1)*(i^2/3+cosi)

[Kapitoshka438]

Код:

var
  I: Integer;
  S: Double;
begin
  S := 0;
  for I := 1 to 25 do
    S := S + I * I / 3 + Cos(I);
  Write(S);
end.

[zheksn]

спасибо огромное