Определите информационный размер текстового документа если он записан с 4-символьного алфавита содержит 60 символов в строке 20 строк и 2 страницы

Мощность алфавита:
2^x=4
x = 2
2 бита.
Всего символов: 2*20*60 = 2400
Информационный размер: 2400*2 = 4800 бит

microsoft office system - пакет программ, который включает в себя:  

- microsoft office access - программа базой данных. предлагает непринуждённость использования и расширенные способности экспорта, импорта, и работы с картотеками данных xml. 

- microsoft
office excel - программа крупноформатной таблицы. включает поддержку xml плюс особенности, которые облегчают анализ и разделение информации. 

- microsoft office frontpage - программа и создания вэб-сайта, которая включает в себя различные особенности и средства , для
проектирования вэб-сайтов. 

- microsoft office infopath – программа для сбора информации и дальнейшего её . 

- microsoft office onenote - программа и создания заметок, которая позволяет организовать, создать и использовать заметки на ноутбуке или настольном
компьютере. 

- microsoft office outlook – персональный информационный менеджер плюс коммуникационная программа, обеспечивает интегрированное календарями, электронной почтой, контактами и другой персональной или общей информацией. 

- microsoft office powerpoint
– программа для создания графических презентаций. 

- microsoft office project позволяет организациям упорядочить предпринимательские инициативы, ресурсы и проекты для улучшения результата. 

- microsoft office publisher - бизнес издатель плюс программа для
маркетинговых материалов, которая облегчает производство, проектирование и издательство профессиональных информационных продуктов. 

- microsoft office visio - техническая программа схематического отображения информации, которая может преобразовать идеи и обычные деловые данные в
диаграммы. 

- microsoft word office - текстовой процессор

var n, p,i,k:integer;

m:array of real;

s:real;

begin

write('n');

readln(n);

setlength(m,n);

writeln;  

for i:=0 to n-1 do

begin

m[i]:=random(21)-10;

write(m[i]:8:2);

if m[i]>0 then k:=i;

end;

writeln;  

S:=0

for i:=0 to k do

s:=s+m[i];

writeln('Сумма элементов до последнего положительного элемента =', s);

Объяснение:

Оптимизируем

for i:=0 to n-1 do  

m[i]:=random(21)-10;  

for i:=0 to n-1 do  

write(m[i]:8:2);

Объединим и заставим сразу считать k

for i:=0 to n-1 do

begin

m[i]:=random(21)-10;

write(m[i]:8:2);

if m[i]>0 then k:=i;

end;

выкидываем

for i:=n-1 downto 0 do

if m[i]>0 then  

begin

k:=i;

break;

end;

И вот еще не помню уже, но не будет лишним сделать S=0, может конечно при описании оно и становится 0, но лишним не будет. Нас учили так.