Разработать схему алгоритма для вычисления суммы ряда:S=1/2+1/3+1/4....1/N.Число N вводится с клавиатуры. Протестировать алгоритм для N=1, N=2, N=4, N=6. Правильность ответов проверить с помощью калькулятора.
Разработать схему алгоритма для вычисления суммы ряда: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
writeln('N = ');
readln(N);
for i := 2 to N do
begin
S := S + 1 / i;
end;
writeln('> ', S);
end.
Тогда так)
Не нашли ответ?
Похожие вопросы