Паскаль турбо, написать программу заполните массив размерности 9*9 значениями 0 и 1 по образцу (см. изображение)

Код ниже, но вероятно он не очень похож на то что попросил преподаватель. Извини, поздно увидел твои комментарии насчет этого.

Объяснение:

#include <bits/stdc++.h>

#define int long long

using namespace std;

bool cmp(pair<pair<string, string>, pair<int, int>> a, pair<pair<string, string>, pair<int, int>> b) {

   return a.second.second > b.second.second;

}

signed main() {

   int n; cin >> n; // Количество наименований

   vector<pair<pair<string, string>, pair<int, int>>> s(n); // Массив с товарами, каждый товар описывается двумя парами, в первой - название и производитель, во второй - цена и количество

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

       cin >> s[i].first.first >> s[i].first.second >> s[i].second.first >> s[i].second.second; // Вводим данные о товаре

   sort(s.begin(), s.end(), cmp);

   

   cout << "Товар с наибольшим количеством на складе: " << s[0].first.first << ". Суммарная стоимость " << s[0].first.first << " на складе равняется " << s[0].second.first * s[0].second.second << ".";

}

3 000 байт

Объяснение:

I = К * i, где

I - информационный объём текста (документа)

К - количество символов в тексте (документе)

i - информационный вес символа (количество бит или байт, которым кодируется 1 символ)

N = 2^i, где

N - мощность алфавита (количество символов в алфавите)

i - информационный вес символа (количество бит или байт, которым кодируется 1 символ)

Дано:

К = 5 страниц * 30 строк * 40 символов = 6 000 символов

N = 16 символов

Найти:

I

16 = 2^i

i = 4 бит

I = 6 000 * 4 = 24 000 бит = 3 000 байт ≈ 2,93 Кбайт

1 байт = 8 бит

1 Кбайт = 1024 байт