Program test;
var
a:array[1..5] of integer;
i:byte;
begin
for i:=1 to 5 do
Readln(a[i]);
Write('Получившийся массив:');
for i:=1 to 5 do
Write(' ',a[i])
end.
1/8Кб=1024 бита
1024/256=4 бита - весит 1 символ
N=2^i
N=2^4=16 символов
1. B:\*.*
2. G:\today.*
3. D:\?????.djvu
4. A:\f??.*
217 бит = 217/8 байт=27,125 байт = 27,125/1024 Кбайт ≈ 0.26 Кбайт