Предмет: Информатика,
автор: GeraBlake
Помогите с составлением алгоритма, пожалуйста!
Дана последовательность, общий член которой определяется формулой: An = (n-1)/n^2. Вычислите сумму тех её членов, которые больше заданного числа e при n>=2
Ответы
Автор ответа:
0
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.
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.
Автор ответа:
0
Огромнейшее спасибо, вроде получилось всё в схему свернуть!
Автор ответа:
0
Рад помочь=)))
Похожие вопросы
Предмет: Математика,
автор: ris1237
Предмет: Геометрия,
автор: alisermusin8
Предмет: Русский язык,
автор: sidorovvalerij199
Предмет: Математика,
автор: Erikanasyrova