Написать программу в паскале для вычисления суммы ряда Sn=1+1/2+1/3 + ... + 1/n, где n - натуральное число, вводимое с клавиатуры

+3
Ответы (1)
  1. 19 апреля, 14:25
    0
    program zz1;

    var n, i:integer; / / задаем переменные целого типа

    s:real; / / задаем переменную не целого типа

    begin

    write (' введите n '); / / вводим с клавиатуры число

    read (n);

    s:=0; / / задаем начальное значение для переменной суммы

    for i:=1 to n do / / организуем цикл на n повторений

    begin

    s:=s + 1/i; / / вычисляем сумму ряда

    end;

    write (' полученная сумма ряда = ', s:5:2); / / выводим ответ в формате пять знаков для всего числа и два знака после точки

    end.
Знаешь ответ на этот вопрос?