Разработать схему алгоритма для вычисления суммы ряда:S=1/2+1/3+1/4....1/N.Число N вводится с клавиатуры. Протестировать алгоритм для N=1, N=2, N=4, N=6.
Правильность ответов проверить с помощью калькулятора.
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
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
