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

Question

Информатика

Иоанна

15 августа, 05:11

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

+5

Ответы (1)

Знаете ответ на вопрос?

Леонилла · Answer 1

Var N, i: integer;

S: real;

Begin

writeln ('N = ') ;

readln (N) ;

for i : = 2 to N do

begin

S : = S + 1 / i;

end;

writeln ('> ', S) ;

end.

Тогда так)