Помогите с составлением алгоритма, пожалуйста! Дана последовательность, общий член...

Question

Помогите с составлением алгоритма, пожалуйста!
Дана последовательность, общий член которой определяется формулой: An = (n-1)/n^2. Вычислите сумму тех её членов, которые больше заданного числа e при n>=2

Comments

Блок-схема нужна или программа?

---

блок-схема

---

но можно и программу, я постараюсь её преобразовать в схему

---

Прогу на паскале?

---

да

---

буду очень благодарна, если поможете)

Answer 1

Var S,E:real;
N:integer;
Begin
Write('E = ');ReadLn(E);
N:=2;
S:=0;
While (N-1)/(N*N)>E do
 Begin
 S:=S+(N-1)/(N*N);
 N:=N+1
 End;
WriteLn(S)
End.

Comments

Огромнейшее спасибо, вроде получилось всё в схему свернуть!

---

Рад помочь=)))