Фомулы:
N =
, где
N - мощность алфавита,
i - количество бит на 1 символ.
V = K * I, где
V - объем,
K - количество символов в сообщении.
Количество бит на 1 символ у племени Мульти:
N =
,
32=
,
i = 5 бит.
Количество бит на 1 символ у племени Пульти:
N =
,
64=
,
i = 6 бит.
Найдем объем информации Мульти:
V
₁ = K * I,
V₁ = 80 * 5 = 400 бит.
Найдем объем информации Пульти:
V₂ = K * I,
V₂ = 70 * 6 = 420 бит.
Сравним объемы:
V₂ - V₁ = 20 бит
Ответ: Объем информации племени Пульти больше племени Мульти на 20 бит.
<em>// PascalABC.NET 3.2, сборка 1417 от 28.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
procedure CreateFile(p:string);
begin
var f:=OpenWrite(p);
Writeln(f,'В чащах юга жил бы цитрус? Да, но фальшивый экземпляръ!');
Writeln(f,'СЪЕШЬ ЖЕ ЕЩЁ ЭТИХ МЯГКИХ ФРАНЦУЗСКИХ БУЛОК, ДА ВЫПЕЙ ЧАЮ');
Writeln(f,'ФлегмаТичНая этА веРБлЮдиЦа жует у пОДЪезда засыХающий горький шиповник');
Writeln(f,'The quick brown fox jumps over the lazy dog');
Writeln(f,'THE FIVE BOXING WIZARDS JUMP QUICKLY');
f.Close
end;
procedure UpFile(p:string);
begin
var a:=ReadAllLines(p);
WriteAllLines(p,a.Select(s->UpperCase(s)).ToArray);
end;
begin
var p:=ReadlnString('Введите имя файла (можно, с путём):');
CreateFile(p);
UpFile(p);
// контроль работы
ReadAllLines(p).Println(NewLine)
end.
<u>Пример работы</u>
Введите имя файла (можно, с путём): MyTest.txt
В ЧАЩАХ ЮГА ЖИЛ БЫ ЦИТРУС? ДА, НО ФАЛЬШИВЫЙ ЭКЗЕМПЛЯРЪ!
СЪЕШЬ ЖЕ ЕЩЁ ЭТИХ МЯГКИХ ФРАНЦУЗСКИХ БУЛОК, ДА ВЫПЕЙ ЧАЮ
ФЛЕГМАТИЧНАЯ ЭТА ВЕРБЛЮДИЦА ЖУЕТ У ПОДЪЕЗДА ЗАСЫХАЮЩИЙ ГОРЬКИЙ ШИПОВНИК
THE QUICK BROWN FOX JUMPS OVER THE LAZY DOG
THE FIVE BOXING WIZARDS JUMP QUICKLY
1)trunc(6.9) = 6
2)trunc(6.2) = 6
3)20 div 6 = 3
4) 2 div5 = 0
5) round(6.9) = 7
6) round(6.2) = 6
7)20 mod 6 = 2
8) 2 mod 5 = 2
9) 3*7 div 2 mod 7/3 - trunc (sin(1)) = 1
Сначала вычислим какой объем занимает 1-а страница
2*48*128=12288 Байт;
12288 байт весит 1-а страница, теперь переведем ее в Кбайты
12288/1024 = 12 Кбайт
Осталось посчитать сколько всего страниц. Весь документ весит 720Кб, 1-а страница 12кб
720/12 = 60 страниц
Ответ: 60