Находим информационный вес 1 символа данных алфавитов
i=9 бит
i= 4 бит
9/4=2,25 раза
<u>PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var x:=10;
var a:=(x+6)*Sqr(x)-Sqrt(x-1);
var b:=Abs(x-15)*Sqr(x+1)/242;
Writeln('a=',a,', b=',b,', a-b=',a-b)
end.
<u>Результат</u>
a=1597, b=2.5, a-b=1594.5
Название книги автор жанр
Дюймовочка Андерсен Х.К. сказки
Серебрянное копытце Бажов П.П. сказки
Мишкина каша Носов Н. рассказы
Сказка о потеренном времени Шварц Е. сказка
Ну, погоди Камов Ф. Курляндский А.
Хайт А. сказка по мультфильму
Var
a, i, max: integer;
sum: real;
begin
max := 0;
sum := 0;
i := 0;
repeat
write('Введите число: ');
readln(a);
if a > 0
then begin
sum := sum + a;
i := i + 1;
end;
if max < a
then max := a;
until a = 0;
writeln(#10,'Сумма = ', sum, #10, 'Среднее арифметическое = ', sum / i, #10, 'Наибольшее число - ', max);
end.