Опубликовано 03.01.2018 по предмету Информатика от Гость

Вычислить: S=1+1/2+1/3+...+1/17

Ответ оставил Гость

Var
  s: real;
  b: byte;

begin
  for b := 1 to 17 do
    s += 1 / b;
  writeln(s);
end.


3.43955...

Не нашел нужный ответ?

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.


Найти другие ответы
Самые новые вопросы
Геометрия, опубликовано 04.09.2024

найдите периметр параллелограмма ABCD , если сторона AD равняется 12 сантиметров и составляет 2/3 стороны АВ

Физика, опубликовано 27.04.2024

Задача: Кусок металла имеет массу 0,8 Н в спирте, 1,2 Н в воздухе и 0,6 Н в воде. Определите плотность металла.

Беларуская мова, опубликовано 18.12.2023

Кантрольная тэставая работа (Х клас) Варыянт 1 41. Адзначце прыклады, у якіх выдзеленыя словы напісаны правільна: 1) стадыён «Дынама»; 4) бібліятека Імя Янкі Купалы; 2) планета Марс; 5)...

Русский язык, опубликовано 01.12.2023

В каких сложноподчинённых предложениях части соединены союзом, а в каких — союзным словом? Выбери верный вариант ответа из списка. Навстречу Печорина вышел его лакей и доложил, что сейчас...

Алгебра, опубликовано 01.12.2023

В группе 8 учеников. 1. Эти ученики могут встать в ряд ... способами. Из этих учеников: 2. список из трёх учеников можно составить ... способами; 3. команду из трёх учеников можно составить ......