1. Очень просто. Информационный вес знака - это логарифм по основанию 2 от количества знаков в алфавите.
2. В Unicode каждый символ занимает 2 байта. Если в строке 80 символов, а строк 25, на это нужно 80×25×2 = 4000 байт.
Тут надо работать со степениями 2; от 0 до 10 попадают только 2^1=2 (символа), 2^2=4 (символа) и 2^3=8 (символов), из этих вариантов нам подходят 2^2 и 2^4 т.к. символы первого текста кодируются 2 битами, а второго 4 битами (если разделить 4 на 2, то получится 2 - как сказано в задаче), значит в первом тексте 3 символа, во втором 7
<em>// PascalABC.NET 3.2, сборка 1379 от 21.01.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
for var m:=1 to ReadInteger('n=')-1 do begin
var s:=0;
for var i:=1 to m div 2 do
if m mod i=0 then s+=i;
if m=s then Writeln(m)
end
end.
<u>Пример</u>
n= 10000
6
28
496
8128
Ночь - ноль - соль - сель - сень - день
рота - роза - коза - поза - пола - полк
бант - кант - карт - кара - кора - коса
бег - бес - бас - пас - пат - шат - шаг
море - горе - гора - кора - кома - кума - сума - суша
миг - мир - тир - тис - лис - рис - вис - вес - век