Сколько килобайт занимает текстовая информация, записанная на 30 страницах (на странице 32 строки, а в строке 60 символов), если мощность алфавита компьютера составляет 256 символов?
Var {Файл 1.txt необходимо создать } n,i,j,c1:integer; a:array[1..100] of integer; f:text; begin {чтение данных с файла 1.txt} assign(f,'1.txt'); reset(f); i:=0; while not eof(f) do begin i:=i+1; read(f,a[i]); end; n:=i; close(f); {Сортировка} for i:=1 to n-1 do for j:=i+1 to n do if a[i]>a[j] then begin c1:=a[j]; a[j]:=a[i]; a[i]:=c1; end; {вывод в файл 2.txt отсортированного массива} assign(f,'2.txt'); rewrite(f); for i:=1 to n do write(f,a[i]:5); close(f);
2^i=256
2^8=256
8 бит=1 байт.
I=30*60*32=57600 байт\1024=56,25 КБ.