1. 8 символов
2.n = 2^i
64 = 2^i
i = 6
V = simvoly * i = 6 * 2000 = 12 000 bit
3.Для кодирования одного из 16 символов требуется log(2)16 = 4 бита (2^4=16).
Объем сообщения = 2048*4 бит = 2048*4/8 байт = 1024 байт = 1024/1024 Кбайт = 1 Кбайт
Надеюсь, что всё правильно.
Var
i, sum: longint;
begin
for i := 1 to 100 do sum := sum + sqr(i);
write(sum);
end.
Begin
Writeln((10+15))*((15-10+1)/2));
End.
А) Источник информации: учитель рассказывает об успеваемости ребёнка матери --> Приёмщик информации: Мама внимательно слушает учителя.
<span>Б) Источник информации: учитель объясняет новую тему на уроке --> Приёмщик информации: ученики внимательно слушают и запоминают информацию. </span>
<span>С) Источник информации: газеты содержат множество различной информации --> Приёмщик информации: ребёнок читает нужную ему информацию </span>
<span>Д) Источник информации и приёмщик информации: мама спрашивает у своей дочки, как она провела день, и слушает ответ на этот вопрос--->Приёмщик информации и источник информации: девочка слушает вопрос и отвечает на него</span>
// PascalABC.NET 3.0, сборка 1157 от 02.02.2016
begin
var s:=ReadlnInteger('Число:').ToString;
if Pos(ReadlnString('Цифра:'),s)>0 then Writeln('Есть в числе')
else Writeln('Нет в числе')
end.
<u><em>Тестовое решение:</em></u>
Число: 634
Цифра: 3
Есть в числе