Информационное сообщение объемом 540 битов (это I) состоит из 180 символов(это K). Какова мощность алфавита (это N), с которого записано это сообщение?

Visual Basic? Их много, вот, например, на VB.NET

    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