Question

Разработать схему алгоритма для вычисления суммы ряда:S=1/2+1/3+1/4....1/N.Число N вводится с клавиатуры. Протестировать алгоритм для N=1, N=2, N=4, N=6.
Правильность ответов проверить с помощью калькулятора.

Answer 1

var
  n,i:integer;
  s:real;
begin
  Write('Введите значение N: '); Readln(n);
  s:=0;
  for i:=2 to n do s:=s+1/n;
  Writeln('Сумма ряда 1/2+1/3+1/4+...+1/n = ',s)
end.

Тестовые решения:
Введите значение N: 1
Сумма ряда 1/2+1/3+1/4+...+1/n = 0

Введите значение N: 2
Сумма ряда 1/2+1/3+1/4+...+1/n = 0.5

Введите значение N: 4
Сумма ряда 1/2+1/3+1/4+...+1/n = 0.75

Введите значение N: 6
Сумма ряда 1/2+1/3+1/4+...+1/n = 0.833333333333333