N = 2^i,
где N – мощность алфавита (количество символов),
i – количество бит (информационный вес символа).
I = K * i
где I – информационный объем текста,
K – количество символов в тексте,
i – количество бит (информационный вес символа).
Дано:
K = 512
I = 1/4 часть килобайта = 256 байт = 2048 бит
Найти: N
Решение:
I = K * i
i = I / K = 2048 / 512 = 4 бита
N = 2^i = 2⁴ = 16 символов содержит алфавит племени Мульти
Ответ: г
Первое задание
VARx, y : real;
BEGIN
readln(x);
if x <= -1 then y:= -1/(x*x*x)else if x <= 2 then y:= x*x else y:=-4;
writeln(y:0:8)
END.
дальше еще скину
https://pastebin.com/jXqipRqF
Только в конце вместо (4,2) должно бить (5,3), но это только пример роботи. А так все норм работает. Язык - питон
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var (a,b,c):=ReadReal3;
if (a<>b) and (a<0) and (b<0) and (c<0) then begin
(a,b,c):=(a*a,b*b,c*c);
Println(a,b,c)
end
else Writeln('Сумма равна ',a+b+c)
end.