Вариант 11 1) В барабане для розыгрыша лотереи находится 64 шара. Сколько информации содержит сообщение о 32 выпав-
шем номере.
2)При угадывании целого числа из диапазона от 1 до N было получено 7/8 байта информации. Чему равно N?
3)Племя Мульти имеет 32 символьный алфавит. Племя Пульте имеет 64 символьный алфавит. Вожди обменялись
письмами. Письмо племени Мульти содержало 80 символов. Письмо племени Пульти содержало 70 символов. В
каком письме содержится большее количество информации.
4) Считая, что каждый символ кодируется одним байтом, оцените информационный объем следующего предложе-
ния: «Лучшая дуга на теле женщины - ее улыбка. » (Боб Марли).
5)
a) Сколько мегабайт информации содержит сообщение объемов 2 в 27-й степени бит?
б) Сколько бит информации содержит сообщение объемов 6 терабайт?
b) 4 байта
В бит
# https://pastebin.com/V2MMpJeN
#
# A.
def function(digit): return str(digit).endswith('0') or str(digit).endswith("1")
print(f"A. function(1230) returns {function(1230)}")
# B.
def function(digit): return digit >= 0 and digit <= 2**8
print(f"B. function(751) returns {function(751)}")
# C.
def function(digit):
if digit < 2: return False
if digit == 2: return True
i=2
lim=int(digit**(1/2))
for n in range(i, lim + 1):
if digit % n == 0: return False
# конец двойной табуляции
return True
# конец табуляции
print(f"C. function(17) returns {function(17)}")
n=int(input("<-- enter digit: "))
print(f"C. function({n}) returns {function(n)}")
print("Число", n, "простое" if function(n) else "составное")
var
t:boolean;
d:integer;
begin
t := true;
d := 2;
while t and (d*d <= x) do
begin
if x mod d = 0 then
t := false;
d := d + 1
end;
prime := t
end;
function order(x:integer):boolean;
var
t:boolean;
d:integer;
begin
d := -1;
repeat
t := x mod 10 > d;
d := x mod 10;
x := x div 10
until not t or (x = 0);
order := t
end;
var
t:boolean;
i,k,n:integer;
begin
t := false;
read(k,n);
for i := k to n do
if prime(i) then
if order(i) then
begin
write(i,' ');
t := true
end;
if not t then
write(0)
end.