Помогите пожалуйста! 1) Вводится последовательность из N целых чисел. Найти сколько в ней нулей. 2) Вычислить сумму элементов последовательности 1+1/(1+2)+1/(2+3)+...+1/(n+(n+1))
Помогите пожалуйста!
1) Вводится последовательность из N целых чисел. Найти сколько в ней нулей.
2) Вычислить сумму элементов последовательности
1+1/(1+2)+1/(2+3)+...+1/(n+(n+1))
Гость
Ответ(ы) на вопрос:
Гость1)
var
res,N,x,i:integer;
begin
res:=0;
readln(N);
for i:=1 to N do
begin
readln(x);
if x = 0 then
res:=res+1;
end;
writeln(res);
end.
2)
var
i,n:integer;
sum:real;
begin
readln(n):
sum:=1;//т.к. 1+{последовательность}
for i:=1 to n do
begin
sum:=sum + 1 / ( i + (i+1) );
end;
writeln(sum);
end.
Не нашли ответ?
Похожие вопросы