2 ^ i = N где
N - Наибольшее ближайшее число к мощности алфавита (количеству символов)
i - вес одного символа в битах
Вес строки
i * k
k - количество символов в строке
<span>
Если алфавит состоит из 17 - 32 символов то вес одного символа 5 бит т.к
2 ^5 = 32
Если алфавит состоит из 9 - 16 </span>символов то вес одного символа 4 бита т.к
2^4 = 16<span>
</span>
<em>// PascalABC.NET 3.3, сборка 1555 от 21.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var (a,b):=ReadReal2;
var x:=a/b;
var y:=x/b;
var z:=Ln(1+x*x)/((1+y*y)*(1+x*x));
Writeln(z)
end.
<u>Результат</u>
0.5 0.5
0.0693147180559945
1 0.8
0.106704348687099
3 1
0.0230258509299405
Program day;
var
dow: integer;
label main;
begin
write('введите число: ');
main:
readln(dow);
case dow of
1, 2, 3, 4, 5: writeln('Рабочий день');
6: writeln('Суббота');
7: writeln('Воскресенье');
else:
begin
writeln('Не день недели! Повторите ввод.');
goto main;
end;
end;
readln;
end.