Задать вопрос!

Задать вопрос!

Все категории

Гад Равнинный [5.3K]

3 года назад

9

13. Используя приведённое кодовое дерево, расшифруйте сообщение: 1111100110

13. Используя приведённое кодовое дерево, расшифруйте сообщение:
1111100110

Информатика

1 ответ:

aeesha3 года назад

0 0

111 - Н
110 - Е
01 - Т
10 - О
111|110|01|10=НЕТО
Ответ: НЕТО

Читайте также

Объясните пожалуйста задачу номер 1. Почему i=3???

Lake

I=3, так как 2³=8
____
Удачи!

0 0

4 года назад

Найди наибольшую цифру в записи числа

Натали Лео

Var n,i : longint; st : string; ch : char; begin readln(n); str(n,st); ch:=''; for i:=1 to length(st) do if st[i]>ch then ch:=st[i]; writeln(ch); end.

0 0

4 года назад

Помогите пожалуйста решить задачу)) Графическое изображение размером 100 на 150 пикселей из 256 цветной палитры преобразовали в

Keytaf [50]

1. 2^i = 256 => i(1)=8 бит
2. 2^i = 16 => i(2)=4 бит

100x150=15000 пикс

8*15000 = 120000 бит = 15000 байт
4*15000 = 60000 бит = 7500 байт

15000-7500 = 7500 байт
15000/7500 = 2

Уменьшится на 7500 байт, уменьшится в 2 раза

0 0

3 года назад

1) Напечатайте таблицу кубов чисел: -10, -8, -6, ... 10.2)Определите результат выполнения программы (без компьютера)begins:=0;x:

Krisff [1]

1)
uses crt;
var a:integer;
begin
for a:=-10 to 10 do
writeln('a=',a,' ',a*a*a:6);
<span>end.
---
2) 10
10</span>

0 0

3 года назад

Составьте программу вычисляющую сумму квадратов всех чисел от 1 до n

ALEXSMI

Var
a: Real;
i,n: Integer;
Begin
WriteLn('Введите ваше ЭН'); ReadLn(n);
a:=0;
<span>for i:=1 to n do
a:= a + sqr(i);
</span>end;
WriteLn('Сумма квадратов равна=',a);
ReadLn;
end.

0 0

4 года назад