[zheksn]

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

[Kapitoshka438]

Код:

1 2 3 4 5 6 7 8 9

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]

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