Задать вопрос
29 ноября, 20:34

Составьте программу следующую сумму: S=1 + (1/2) + (1/3) + ... + (1/50)

+1
Ответы (1)
  1. Н
    29 ноября, 23:28
    0
    Var s, i: real;

    begin

    readln (a) ;

    s:=0;

    for i:=1 to 50 do begin

    s:=s + (1/i) ;

    end;

    write (s) ;

    end.
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «Составьте программу следующую сумму: S=1 + (1/2) + (1/3) + ... + (1/50) ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы
Войти
Задать вопрос