1. Информатика
  2. Найдите сумму 1+1/2+1/+1/n(программа

Найдите сумму 1+1/2+1/+1/n(программа нужна для excel vba)

Slobodenyuk21 Slobodenyuk21    2   02.12.2019 21:13    0

Ответы
ladavasilenko ladavasilenko  10.10.2020 17:57

Sub abc()

   Dim s As Double, n As Integer, i As Integer

   n = CInt(InputBox("Задайте значение n"))

   For i = 1 To n

       s = s + 1 / i

   Next i

   MsgBox "Сумма равна " & CStr(s)

End Sub

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Kurakik Kurakik  23.06.2019 20:40
Написать программу на c++ начать от пользователя число, если число 10 , то это число делится на 2 и выводит результат на экран. во всех остальных случаях писать число не верно...
aleksaray29 aleksaray29  18.12.2020 15:02
Как Називаеться Флеш-Карта...
валерка1973 валерка1973  18.12.2020 15:01
Напишите сообщение про графический редактор фотошоп 1) название 2) основные функции 3) применение НУЖНО...
lenyaalikin lenyaalikin  13.09.2021 18:12
Вводятся координаты четырех точек (по две координаты на каждую). Определить, составляют ли эти четыре точки прямоугольник. Порядок точек может быть любым. Написать алгоритм блок-системы...
арана19 арана19  13.09.2021 18:31
Укажите информационный процесс в живой природе: 1.горение леса из-за жары 2.управление самолёта с автопилота в соответствии с заложенной в него программой 3.разворот в течение дня...
NiKoOl18 NiKoOl18  13.09.2021 18:50
. надо упростить формулы логики с основных равносильностей....
Masha20468 Masha20468  13.09.2021 18:51
Складіть схеми зазначених інформаційних процесів, виділивши в них основні інформаційні процеси передавання, опрацювання та зберігання повідомлень: a) розповсюдження повідомлень;...
VaNyOkToP VaNyOkToP  13.09.2021 18:52
Напишите плюсы и минусы трёх процессоров...
amdv amdv  13.09.2021 19:23
Было принято сообщение размером 10 бит. Какое количество инфор- мации можно получить из данного сообщения?...
konoplynkoyanoka konoplynkoyanoka  13.09.2021 19:24
2. На кожній сторінці міститься 60 рядків, в кожному з яких по 72 символи. Скільки сторінок потрібно, щоб надрукувати текст об ємом 2 мегабайти? Один символ кодується одним байтам...

Популярные вопросы