Мощность алфавита N=, i- вес одного символа. Подставим, 16=, i=4 бита Объем=кол-во символов* инф. вес одного символа объем=384символа *4 бита=1536 бит=1,5 Кбайт
begin i := 0; writeln('Введите последовательность чисел,оканчивающихся отрицательным числом'); repeat readln(n); if n > 0 then begin s := s + n; i := i + 1; end; until n < 0; writeln(s / i); end.
{2}
var i, n: integer;
begin i := 0; writeln('Введите последовательность чисел,оканчивающихся 0'); repeat readln(n); if n <> 0 then i := i + 1; until n = 0; writeln(i); end.
Однажды в одной маленькой комнате жили кровать, стол , стул , ковер , шкаф и монитор . Да вот только была еще мышка но с ней не дружили .Она всегда была одна . Однажды она загрустила . ее у видел монитор и сказал , - Что ты горюешь мышка? - Никто со мной не дружит , не с кем мне дружить я слишком маленькая . - Хочешь я буду твоим другом? - Ты же большой . А я маленькая и ненужненькая . - Без разницы маленькая ты или большая дружбе нету предела -Правда? -Конечно С тех пор монитор и мышка были лучшими друзьями
16=
Объем=кол-во символов* инф. вес одного символа
объем=384символа *4 бита=1536 бит=1,5 Кбайт