Составить программу решения для visual basic

#include <iostream>
using namespace std;

int main() {
int N,K,L;
int gt=0,eg=0,lt=0;   
    cout<<"N = ";  cin>>N;  
    cout<<"K = ";  cin>>K;  
    cout<<"элементы последовательности через пробел: ";
    for (int i=0; i<N;i++)
{  cin>>L;
  if (L>K) gt++;
  if (L==K) eg++;
  if (L<K) lt++;
} 
    cout<<"меньше К: "<<lt<<endl;
    cout<<"равных К: "<<eg<<endl;
    cout<<"больших К: "<<gt<<endl;
    
    system("pause");
    return(0);
}

будем считать, что каждое четное однозначное число это определенный алфавит, мощность которого обозначается буквой N

N=2^i, подставим вместо N 2, получаем 2=2^i запишем левую часть как степень числа 2: 2^1=2^i, отсюда i=1 бит

подставим теперь вместо N 4, получаем 4=2^i запишем левую часть как степень числа 2: 2^2=2^i, отсюда i=2 бит

подставим теперь вместо N 6, получаем 6=2^i число 6 не является точной степенью числа 2, поэтому ответ найдем по таблице неточных степеней числа 2-  i=2,58 бит

подставим теперь вместо N 8, получаем 8=2^i запишем левую часть как степень числа 2: 2^3=2^i, отсюда i=3 бит

задача2

запишем условие: мощность компьютерного алфавита равна N=256

I=120 бит, К-?

решение: найдем вес одного символа 256=2^i, i=8 бит

разделим I на i и получим кол-во символов в тексте 120/8=15