задача2
посчитаем общее количество шариков в мешочке по формуле N=2^i
подставим в эту формулу 3 и получим двойку в третьей степени - это 8 шариков
задача3
общее количество вариантов рассчитывается по формуле по формуле N=2^i подставим в эту формулу 16 и получим двойку в четвертой степени т.е. i=4 бита
задача5
запишем условие: I=450 бит, К=150, i=?
решение: найдем вес одного символа , разделим I на K - получим
i=450/150=3 бита
задача9
запишем условие: I=2Кб, К=8192, N=?
решение: выразим объем информационного сообщения в битах
I=2*1024*8=16384 бит найдем вес одного символа , разделим I на K - получим
i=16384/8192=2 бита если i=2 если вес одного символа 2, то мощность алфавита равна 4
задача11
определим, сколько символов в алфавите планеты Альфа. Для этого вычеркнем из сообщения повторяющиеся символы: букву М, К, Н, О
осталось вот что: МКЛНОПРСТ! - всего 10 символов
определим вес 1 символа по таблице нецелых степеней числа 2: i=3.32 бита. В исходном тексте 15 символов, поэтому умножим наше i на 15
I=15*3.32=49.8 бит
// Внимание! Если программа не работает, обновите версию!
function SumDigits(n:integer):integer;
begin
Result:=0;
while n>0 do begin
Result+=n mod 10;
n:=n div 10
end
end;
begin
var s:=ReadArrInteger('Вводите:',3).Select(x->SumDigits(x)).ToArray;
var i:=s.IndexMax;
var k:=s.Where(x->x=s[i]).Count;
case k of
1:begin
Write('Сумма цифр наибольшая у ');
case i of
0:Write('первого');
1:Write('второго');
2:Write('третьего');
end;
Writeln(' числа')
end;
2:begin
Write('Сумма цифр наибольшая у ');
if s[0]=s[1] then Writeln('первого и второго чисел')
else
if s[0]=s[2] then Writeln('первого и третьего чисел')
else Writeln('второго и третьего чисел')
end;
3:Writeln('Суммы цифр у всех трех чисел равны')
end
end.
Примеры
Вводите: 102030 324 19
Сумма цифр наибольшая у третьего числа
Вводите: 16453 4320 56341
Сумма цифр наибольшая у первого и третьего чисел
Вводите: 12345 12354 54321
Суммы цифр у всех трех чисел равны