Работа 3.4 Упр.1 Задание 1 ГДЗ Семакин 10 класс (Информатика)

S= 1+1/2+1/3+1/4+…+1/N.

Нужно вычислить сумму

$$S=1+\frac{1}{2}+\frac{1}{3}+\frac{1}{4}+\dots+\frac{1}{N}.$$

Для этого удобно использовать цикл: последовательно прибавлять к сумме очередную дробь $$\frac{1}{i}$$, начиная с $$i=1$$ и заканчивая $$i=N$$.

var i, s, n: real;
begin
  writeln(‘Введите N’);
  readln(n);
  i := 1;
  s := 0;
  while i <= n do
  begin
    s := s + 1 / i;
    i := i + 1;
  end;
  writeln(‘сумма = ‘, s);
end.

В программе переменная $$s$$ накапливает сумму, а $$i$$ перебирает все значения от $$1$$ до $$N$$.

Ответ

Программа на Pascal:

var i, s, n: real;
begin
  writeln(‘Введите N’);
  readln(n);
  i := 1;
  s := 0;
  while i <= n do
  begin
    s := s + 1 / i;
    i := i + 1;
  end;
  writeln(‘сумма = ‘, s);
end.