Помогите пожалуйста))))))))))))))))

Question

Помогите пожалуйста))))))))))))))))

---

Comments

Паскаль?

---

да

Answer 1

Var
  s: real;
  i: byte;

begin
  for i := 1 to 50 do
    s += 1 / Power(i, 3);
  writeln(s);
end.
===================
var
  s: real;
  i: byte;

begin
  for i := 1 to 64 do
    s += 1 / Power(i * 2, 2);
  writeln(s);
end.
=================
Вроде так...