Задать вопрос
28 июля, 09:00

Сколько слагаемых должно быть в сумме 1 + 1/2+1/3 + ... + 1/N, чтобы сумма оказалась больше 5

+4
Ответы (1)
  1. 28 июля, 10:26
    0
    Var N : integer;

    var A: real;

    begin

    A:=0;

    N:=0;

    while (A) <5 do begin

    N:=N+1;

    A:=A + (1/N) ;

    end;

    WriteLn ('Всего ', N,' слагаемых') ;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Сколько слагаемых должно быть в сумме 1 + 1/2+1/3 + ... + 1/N, чтобы сумма оказалась больше 5 ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике