Задать вопрос
ИнформатикаИнформатика
2 февраля, 16:51

Помогите решить информатику: S=1 / (1+2) + 1 / (1+2+3) + 1 / (1+2+3+4) + ... + 1 / (1+2 + ... n)

+4
Ответы (1)
  1. 2 февраля, 17:19
    0
    Var n, i, p: integer;

    s: real;

    begin

    s:=0;

    p:=0;

    readln (n);

    for i:=1 to n do

    begin

    p:=p+i;

    s:=s+1/p;

    end;

    writeln (s);

    end.
Знаешь ответ?
Не уверен в ответе?
Найди верный ответ на вопрос ✅ «Помогите решить информатику: S=1 / (1+2) + 1 / (1+2+3) + 1 / (1+2+3+4) + ... + 1 / (1+2 + ... n) ...» по предмету 📙 Информатика, а если ответа нет или никто не дал верного ответа, то воспользуйся поиском и попробуй найти ответ среди похожих вопросов.
Искать другие ответы
Помоги с ответом
Какое наибольшее число плоскастей можно проаести через различные пары из четырех параллельных прямых
Нет ответа
Почему при упоминании о лимоне у человека выделяется слюна? случается ли такое у людей которые не ели лимоны?
Нет ответа
Найдите значение минус А если 1) a=3,8 2) a=-6,4
Нет ответа
Вычеслите массовую долю кальция, кремния, кислорода в веществе CaSiO3
Нет ответа
Решите уравнение 5 в степени x = 125
Нет ответа
Главная » Информатика » Помогите решить информатику: S=1 / (1+2) + 1 / (1+2+3) + 1 / (1+2+3+4) + ... + 1 / (1+2 + ... n)
Регистрация Забыл пароль