1) 1024 символа это 10 бит на символ (1024 = 2^10). Значит текста занимает 24576*10 = 245760 бит = 245760/8 байт = 245760/8/1024 кбайт = 30 кбайт
2) 7кбайт = 7168 байт -> у нас 1 байт на символ = 8 бит. С бит можно закодировать алфавит мощностью 2^8 = 256 символов
3) TrueColor - это цвет глубиной 24 бита = 3 байта. Рисунок 64*272 с такой глубиной занимает 64*272*3 байт = 64*272*3/1024 кбайт = 51 кбайт
4) 75 кбайт = 75*1024 байт = 75*1024*8 бит = 614400 бит
Всего пикселей в рисунке: 768*160 = 122880
Находим глубину цвета каждого пикселя: 614400/122880 = 5 бит
С бит можно закодировать максимум 2^5 = 32 цвета
5) Частота 22000 Гц и разрядность 24 бита означают, что на каждую секунду звука приходится 22000 замеров уровня и каждый кодируется 24 битами = 3 байтами, т.е. одна секунда занимает 22000*3 = 66000 байт.
Тогда минута звучания занимает 66000*60 байт = 66000*60/1024 кбайт = 66000*60/1024/1024 Мбайт = 3,78 Мбайт
Pascal
const
n=6;
var
a, b :array[0..n-1] of integer;
i :integer;
begin
for i:=0 to n-1 do begin
write('Введите a[', i+1, '] :');
readln(a[i]);
end;
writeln();
writeln('Увеличиваем каждый элемент в 2 раза');
for i :=0 to n-1 do begin
b[i]:= 2*a[i];
write(b[i], ' ');
end;
writeln();
writeln('Увеличиваем на 5 все элементы проме 1-го и последнего');
for i:=0 to n-1 do begin
if (i=0) or (i=n-1) then
b[i]:= a[i]
else
b[i]:= a[i] +5;
write(b[i], ' ');
end;
writeln();
writeln('Первую половину массива увеличиваем на 1, вторую в 2 раза');
for i:=0 to n-1 do begin
if i < n div 2 then
b[i]:= a[i]+1
else
b[i]:= 2 * a[i];
write(b[i], ' ');
end;
end.