Современный человек живет, информацией, постоянно выискивая для себя новое и новое, не представляя своё существование без неё. Но информационное изобилие было не всегда. Чем дальше вглубь веков, тем меньше информации, которой пользовался человек, темслабее насыщенность ею общественных структур. Если обратиться к истории человечества, то можно увидеть, что первоначально носителем информации стала устная речь. Ввиду своей территориальной привязки, человек был ограничен в притоке свежих сведений об окружающем мире, ограничиваясь сведениями в малом радиусе общения. Затем появилась письменность и первые книги, которые позволяли копить информацию и передавать её от одного индивида другому.
<h2>Задание 1.</h2>
3 кбайта= 3*1024*8=24576 бит
1 мбайт = 1*1024*8=8196 байт
4096 бит =4096\8\1024= 0.5 кбайта
2.5 мбайт=2.5*1024=2560 кбайт
<h2>Задача 2.</h2>
k-120 символов
N(мощность алфавита) = 512=> i=9 бит
I=k*i
<u><em>I=120*9=1080 бит</em></u>
<h2>Задача 3.</h2>
I=2 кб
k=4096 символов
N=2^i I=k*i <em>i= 2*1024*8/4096=4</em>
<em><u>2^4=16 - ответ</u></em>
<h2>Задача 4.</h2>
Племя мульти:
N=64 => i=6 бит
Значит 150*6=900 бит
Племя пульти:
N=512 =>i=9 бит
Значит 50*9=450 бит
<h2>Задача 5.</h2>
I=8 кб
N=16 => i=4
k-? k=I/i <em>k=8*1024*8/4=16 384 - всего символов</em>
<u><em>16 384/512=32 страницы</em></u>
<span>327680 бит или 320 Кбит
думаю так!</span>
Var
N:integer;
Begin
WriteLn('Введите номер дня недели');
Read(N);
Case N of
1:
Begin
WriteLn('Чтение');
WriteLn('Труд');
WriteLn('Музыка');
WriteLn('Физ-ра');
End;
2:
Begin
WriteLn('Изо');
WriteLn('Русский');
WriteLn('Математика');
WriteLn('Окружающий мир');
End;
3:
Begin
WriteLn('Геометрия');
WriteLn('Краеведенье');
WriteLn('География');
WriteLn('МХК');
End;
4:
Begin
WriteLn('ОБЖ');
WriteLn('Информатика и ИКТ');
WriteLn('Физика');
WriteLn('Химия');
End;
5:
Begin
WriteLn('Биология');
WriteLn('История');
WriteLn('Обществознание');
WriteLn('Алгебра');
End;
6:
Begin
WriteLn('----------');
WriteLn('Литература');
WriteLn('Черчение');
End;
7:
Begin
WriteLn('Воскресенье!!!');
End;
End;
End.
Var
A:integer;
Begin
Write('A = ');ReadLn(A);
if A mod 2 = 0 then WriteLn(A,' - чётное число')
else WriteLn(A,' - нечётное число')
End.
Var
A:integer;
Begin
WriteLn('Введите трёхзначное число');
ReadLn(A);
WriteLn(A mod 10,(A div 10) mod 10,A div 100);
End.