Помогите пожалуйста!
1) Вводится последовательность из N целых чисел. Найти сколько в ней нулей.
2) Вычислить сумму элементов последовательности
1+1/(1+2)+1/(2+3)+...+1/(n+(n+1))

Ответы (1)

Витылий 17.09.2025 4

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.

Знаете правильный ответ?

Думаешь ответы не верны?

Найди верный ответ на вопрос по предмету Информатика, если вы не получили ответа или никто не дал верного ответа, то рекомендуется воспользоваться поиском и попытаться найти ответ на свой вопрос среди похожих запросов.

Воспользуйтесь поиском

Новые вопросы по предмету Информатика:

ПРЕДМЕТЫ

Помогите пожалуйста! 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))