Информационное сообщение объемом 540 битов (это I) состоит из 180 символов(это K). Какова мощность алфавита (это N), с которого записано это сообщение?
Sub Main() Dim N As UInteger Dim Num As Integer Dim A As String = String.Empty N = Integer.Parse(Console.ReadLine()) For i As UInteger = 1 To N Console.Write(i.ToString() + " ") Num = Integer.Parse(Console.ReadLine()) If Num = 0 Then A += i.ToString() End If Next Console.WriteLine() Console.WriteLine() Console.WriteLine(A.Length) Console.WriteLine() For Each i As Char In A Console.WriteLine(i) Next Console.ReadKey() End Sub
В первом файле фрагмент экрана, показывающий работу программы. Во втором - рабочая книга MS Excel. Небольшая процедура на VBA, текст которой приведен ниже, выполняет всю необходимую работу.Для того, чтобы работать с данной реализацией, надо в Экселе разрешить работу с макросами и разрешить доверять проектам без цифровой подписи (это стандартное условие для выполнения средств автоматизации в MS Office).
Option Explicit
Private Sub CommandButton1_Click() Dim i As Integer, s As Double Dim x As Double, n As Integer x = Cells(2, 1).Value n = Cells(2, 2).Value s = 0 For i = 1 To n s = s + 1 / (Sin(n * x) + Cos(n * x)) Next i Cells(3, 2).Value = s End Sub
Sub Main()
Dim N As UInteger
Dim Num As Integer
Dim A As String = String.Empty
N = Integer.Parse(Console.ReadLine())
For i As UInteger = 1 To N
Console.Write(i.ToString() + " ")
Num = Integer.Parse(Console.ReadLine())
If Num = 0 Then
A += i.ToString()
End If
Next
Console.WriteLine()
Console.WriteLine()
Console.WriteLine(A.Length)
Console.WriteLine()
For Each i As Char In A
Console.WriteLine(i)
Next
Console.ReadKey()
End Sub
Небольшая процедура на VBA, текст которой приведен ниже, выполняет всю необходимую работу.Для того, чтобы работать с данной реализацией, надо в Экселе разрешить работу с макросами и разрешить доверять проектам без цифровой подписи (это стандартное условие для выполнения средств автоматизации в MS Office).
Option Explicit
Private Sub CommandButton1_Click()
Dim i As Integer, s As Double
Dim x As Double, n As Integer
x = Cells(2, 1).Value
n = Cells(2, 2).Value
s = 0
For i = 1 To n
s = s + 1 / (Sin(n * x) + Cos(n * x))
Next i
Cells(3, 2).Value = s
End Sub