16 бит - это 16/8 = 2 байта - именно столько занимает один символ.
Тогда страница займет 32×64×2 = 4096 байт = 4096/1024 = 4 Кбайта.
Если объем текста 48 Кбайт, то в нем 48/4 = <u>12</u> страниц.
Именно столько листов бумаги и понадобится при односторонней печати. При двухсторонней - 6 листов.
Var
i,s,n:integer;
begin
n:=0; s:=0;
for i:=0 to 99 do
if i>9 then
if i div 10 > i mod 10 then begin
n:=n+1; s:=s+i;
end;
Writeln('Сумма ',s,', ср. арифметическое ',s/n)
end.
<u>Результат</u>
Сумма 2970, ср. арифметическое 66