Укажи минимальный объём памяти (в битах), достаточный для хранения любого растрового изображения размером 74×74 пикселя, если известно, что в изображении используется палитра из 4 цветов. саму палитру хранить не нужно.

program raf105;

var

 A: real;

 x: integer;

begin

 write('Введите число в битах: ');

 readln(A);

 writeln('1. Байт');

 writeln('2. Килобайт');

 writeln('3. Магабайт');

 writeln('4. Гигабайт');

 write('Введите номер единицы, в которую нужно перевести: ');

 readln(x);

 if x=1 then writeln(A/8,' байт')

   else if x=2 then writeln(A/8000,' кб.')

     else if x=3 then writeln(A/8000000,' мб.')

       else if x=4 then writeln(A/8000000000,' гб.')

         else writeln('Ошибка');

end.

PascalABC 3.4.2

Объяснение:

#include <iostream>

using namespace std;

int main()

{

setlocale(LC_ALL, "RUSSIAN");

const int n = 5;             // (1≤N≤1000)

int mass[n] = { 5, 4, 3, 2, 1 };

int k = 0;

cout << "Исходный массив: ";

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

{

 cout << mass[i] << " ";

}

cout << endl;

for (int i = 1; i < n; i++) {

 for (int j = 0; j < n-1; j++) {

  if (mass[j] > mass[j + 1]) {

   int b = mass[j]; // создали дополнительную переменную

   mass[j] = mass[j + 1]; // меняем местами

   mass[j + 1] = b; // значения элементов

   k++;

  }

 }

}

cout << "Отсортированный массив: ";

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

{

 cout << mass[i] << " ";

}  

cout << endl << "Kоличество обменов: " << k << endl;

system("pause");

return 0;

}