Ответы
Ответ дал:
0
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.
=================
Вроде так...
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.
=================
Вроде так...
Похожие вопросы
2 года назад
2 года назад
7 лет назад
10 лет назад