1) Иван составляет 3-буквенные слова из букв А, Б, В, Г, Д, Я. Буква Я в слове может быть только одна (или ни одной) и только на первой или второй позициях. Сколько различных кодовых слов может составить Иван? 2) Для кодирования некоторой последовательности, состоящей из букв А, Б, В, Г, Д, Е, Ж, З, И, Й. решили использовать неравномерный двоичный код, удовлетворяющий условию Фано. Для букв А, Б, В, Г, Д, Е, Ж, З, И использовали соответственно кодовые слова 111, 0100, 1100, 0010, 0001, 0011, 0110, 1001, 1010. Укажите кратчайшее возможное кодовое слово для буквы Й, при котором код будет допускать однозначное декодирование. Если таких кодов несколько, укажите код с наименьшим числовым значением.
3) Документ объёмом 10 Мбайт можно передать с одного компьютера на другой двумя
А) сжать архиватором-1, передать архив по каналу связи, распаковать;
Б) сжать архиватором-2, передать архив по каналу связи, распаковать;
Какой быстрее и насколько, если
средняя скорость передачи данных по каналу связи составляет 220 бит в секунду,
объём документа, сжатого архиватором-1, равен 20% от исходного,
на сжатие документа архиватором-1 требуется 18 секунд, на распаковку - 2 секунды,
объём документа, сжатого архиватором-2, равен 10% от исходного,
на сжатие документа архиватором-2 требуется 26 секунд, на распаковку - 4 секунды?
В ответе напишите букву А, если А быстрее, или Б, если быстрее Б. Сразу после буквы напишите на сколько секунд один быстрее другого.
иначе не сможем выполнить 1 и 2 пункт задания.
Исправляем if N mod 10 k:=N mod 10; на if (N mod 10 < k) then k:=N mod 10;
Исправляем N:N div 10; на N:= N div 10;
После исправления ошибок при вводе 537 получим 3
Программа будет работать правильно для любого числа,
у которого вторая цифра слева меньше первой цифры, например:
7193
Чтобы программа работала правильно для всех чисел надо
изменить это: while N > 10 do на while N > 0 do
После всех исправлений код программы стал таким:
var
N, k: integer;
begin
readln(N);
k := 9;
while N > 10 do
begin
if (N mod 10 < k) then k := N mod 10;
N := N div 10;
end;
write(k)
end.