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;
}
б) 12288 бит = 12288 / 8 = 1536 байт = 1536 /1024 = 1,5 кбайт
в) 213 бит = 213 /8 = 26, 625 байт = 26, 625 / 1024 = 0, 03 кбайт
г) 1536 мбайт / 1024 = 1,5 гбайт
1536 мбайт = 1536 * 1024 = 1572864 кбайт = 1572864 * 1024 = 1610612736 байт
2. 1) 30 * 50 * 250 = 375000 символов на 250 стр.
2) 375000 / 8 /1024 = 45,8 Кбайт
ответ: инф. объем = 45,8 кбайт.