Question

ПАСКАЛЬ!Срочно.Циклы в алгоритмах.

Answer 1

//PascalABC.Net 3.2
function f(n: integer):=1/(n*n*n);
begin
var sum:=0.0;
for var i:=1 to 1000 do sum+=f(i);
write (sum);
end.