Выберите лишнее. работа со списками может применяться: а. при составление плана работы. в. при наборе текста рассказа. c. при создании оглавления документа
Var m : array[0..6] of Integer; i,k,N : Integer; Begin For i:=0 to 6 do m[i]:=0; Readln(N); k:=6; While N>0 do Begin If N>=Power(2,k) then Begin N:=N-Trunc(Power(2,k)); Inc(m[k]); end else Dec(k); end; For i:=0 to 6 do Writeln(Power(2,i),' ',m[i],' шт.'); end.
Еще вариант: Const NN = 7; money : array[1..7] of Integer = (1,2,4,8,16,32,64); Var m : array[1..NN] of Integer; i,k,N : Integer; Begin For i:=1 to NN do m[i]:=0; Readln(N); k:=NN; While N>0 do Begin If N>=money[k] then Begin N:=N-money[k]; Inc(m[k]); end else Dec(k); end; For i:=1 to NN do Writeln(money[i],' ',m[i],' шт.'); end.
Все по той же формуле Хартли k=log2(N), из которой следует, что N=2^k
2)
Поскольку появление в сообщении определенного числа месяца, определенного месяца и определенного часа равновероятно из общего числа дней в месяце, общего числа месяцев, общего числа часов, то количество информации определяется по формуле: 2^I=N, где I – количество информации, N=31*12*24 – (количество дней в месяце)*(количество месяцев)*(количество часов в сутках). Отсюда: 2^I=31*12*24=8928, I=log2(31*12*24)≈13.12412131 бит.PS надеюсь догадаетесь что 2 у логарифма пишется внизу.
3)
Если 7 карандашей - то √7 = 2.64 бита. Если б было 8, то было бы 3 бита: используем формулу , где N – количество возможных событий, i – количество информации