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

Question

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

---

Comments

Нужно функцию протабулировать?

---

Это как?

---

Что нужно сделать?

---

Найти сумму,..

---

Ок

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.

Comments

что-то не то:((

---

Почему?

---

пример сейчас напишу как нам нужно решить

---

вот по этому заданию

---

1!+2!+3!

---

(n!1*2*3...n)

---

Решение такое

---

var a,s,i:Integer;

---

Шта?!

---

Begin
s:=0;
a:=1;
For i:=1 to 4 do
begin
a:=a*i
s:=s+a
end;
Label 1.Caption:=IntToStr(s);
end;