Информатика, опубликовано 2018-08-22 23:13:48 by Гость
Помогите с составлением алгоритма, пожалуйста! Дана последовательность, общий член которой определяется формулой: An = (n-1)/n^2. Вычислите сумму тех её членов, которые больше заданного числа e при n>=2
Ответ оставил Гость
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.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на