Информатика, опубликовано 24.03.2019 15:20
Алфавит племени пульти составляет 64 слов одинаковой длины.каждая буква алфавита несет 2 бит информации.какова длина слова этого племени?
Ответ оставил: Гость
Двоичная 1 10 11 100 101 110 111 1000 1001 1010 1011 1100 1101 1110 1111 10000 10001 10010 10011 10100
Пятеричная: 1 2 3 4 10 11 12 13 14 20 21 22 23 24 30 31 32 33 34 40
Восьмеричная: 1 2 3 4 5 6 7 10 11 12 13 14 15 16 17 20 21 22 23 24
Шестнадцатеричная: 1 2 3 4 5 6 7 8 9 A B C D E F 10 11 12 13 14
Пятеричная: 1 2 3 4 10 11 12 13 14 20 21 22 23 24 30 31 32 33 34 40
Восьмеричная: 1 2 3 4 5 6 7 10 11 12 13 14 15 16 17 20 21 22 23 24
Шестнадцатеричная: 1 2 3 4 5 6 7 8 9 A B C D E F 10 11 12 13 14
Ответ оставил: Гость
ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...ОтделыОбмен", Приём ИЗ "...ОтделыОбмен";
ПЕР
число, чётных, сумцифр, цифра: ЦЕЛ;
УКАЗ
число := Приём.Число();
чётных := 0; сумцифр := 0;
ПОКА число > 0 ВЫП
цифра := число ОСТАТОК 10;
ЕСЛИ ЧЕТ(цифра) ТО УВЕЛИЧИТЬ(чётных) КОН;
УВЕЛИЧИТЬ(сумцифр, цифра) КОН;
число := ЧИСЛО ДЕЛИТЬ 10
КОН;
Вывод.ЧЦел("^%d %d", чётных, сумцифр, 0, 0)
КОН Задание.
ИСПОЛЬЗУЕТ Вывод ИЗ "...ОтделыОбмен", Приём ИЗ "...ОтделыОбмен";
ПЕР
число, чётных, сумцифр, цифра: ЦЕЛ;
УКАЗ
число := Приём.Число();
чётных := 0; сумцифр := 0;
ПОКА число > 0 ВЫП
цифра := число ОСТАТОК 10;
ЕСЛИ ЧЕТ(цифра) ТО УВЕЛИЧИТЬ(чётных) КОН;
УВЕЛИЧИТЬ(сумцифр, цифра) КОН;
число := ЧИСЛО ДЕЛИТЬ 10
КОН;
Вывод.ЧЦел("^%d %d", чётных, сумцифр, 0, 0)
КОН Задание.
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01