Question

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

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.
=================
Вроде так...