Решить это в excel и vbaвычислить y= cosx + cosx^2 + cosx^3 + + cosx^n

Option Explicit 'Требование описывать все переменные

Private Sub CommandButton1_Click()

   Dim n As Integer, i As Integer

   Dim x As Double, y As Double, c As Double

   n = CInt(Cells(2, 1))

   x = CDbl(Cells(2, 2))

   y = 0

   c = x

   For i = 1 To n

       y = y + Cos(c)

       c = c * x

   Next i

   Cells(2, 3) = y

End Sub

Не дает прицепить экселевский файл. Поэтому переименовал r1.xslx для Excel2010 в r1.xlsx.pdfю Скачай и убери расширение .pdf в имени.

Или можно сохранить как есть а потом сначала вызывать Эксель и в нем открыть этот файл игнорируя расширение.

"Говорильный" аппарат,
Модный гаджет,связи рад.
Фото,видео снимает,
На звонки он отвечает.
                                ( Телефон)

К празднику, всегда "накрыт",
Полон явств и каждый сыт,
Я бюро и секретер,
Есть компьютерный размер.
                                 ( Стол)

Важных данных я хранитель,
Информации носитель,
Гибкая,так что же это?
Я магнитная ?(Дискета)

Я блокнот и память я,
Есть и электронная.
Записи я все веду,
Всё фиксирую и жду.
                         (Записная книжка)

Не пищу и не шуршу,
А с компьютером-дружу.
Я курсором управляю,
И командам
                        (Мышка)

Осенью,я всех встречаю.
Летом,просто отдыхаю.
Весь учебный год-учу,
Дарить знания хочу.
                          (Школа)

Делим число на 2, пока не станет равным нулю:
Целая часть от деления  Остаток от деления
474                                           1
237                                           0
118                                           1
59                                             0
29                                             1
14                                             1
7                                               0
3                                               1
1                                               1
0                                               1
Остаток от деления записываем в обратном порядке. Получаем число в 2-ой системе счисления: 1110110101
949(10) = 1110110101(2)