1) сколько бит информации в кодировке кои-8 во фразе компьютер 2) девочка заменила каждую букву своего имени её номером в алфавите. получилось 1612191151. как зовут девочку? (алёна, наташа, тамара, оксана) 3) статья, набранная на компьютере содержит 16 страниц, на каждой странице 32 строки, в каждой строке 30 символов, определите инф. объём статьи в одной из кодировок кои - 8 , в которой каждый символ кодируется 16бита4ми. 4) в олимпиаде учавствовало 13 девочек и 54 мальчика, а всего 100 человек. в какой системе счисления записаны эти сведения? всё с решением

1) файл паскаля приложен.
2) код на c#
        static void Main(string[] args)        {            int a, b;            a = Convert.ToInt32(Console.ReadLine());            b = Convert.ToInt32(Console.ReadLine());            if (a > 2)            {                Console.WriteLine(a / 2);                Console.WriteLine(b - 1);            }        }
3) Код на vb
dim a as integer = 0
dim b as integer = 0
a = cint(console.readline())
b = cint(console.readline())
if a > 2 then
console.writeline( a / 2)
console.writeline(b - 1)
end if

#include <iostream>

int main() {

const int SIZE = 10;

bool isSence = false;

int sum = 0;

int count = 0;

int arr[SIZE];

for (int i = 0; i < SIZE; i++)

{

 arr[i] = rand() % 20 - 10; // "рандомно" заполняем массив от -10 до 10

 std::cout << arr[i] << "\t"; // выводим массив в консоль

 if (arr[i] >= 0)

  isSence = true;

}

for (int i = 0; i < SIZE; i++)

{

 if ((isSence) && (arr[i] > 0))

  sum += arr[i]; //sum = sum + arr[i];

  count++;

}

if (isSence)

 std::cout << "\nсреднее арифметическое положительных чисел = " << double(sum) / count << std::endl; // явное приведение типов

else

 std::cout << "\nВ массиве нету положительных чисел или нету нулей и/или отрицательных чисел" << std::endl;

return 0;

}