Var a,b,x:real; Begin Write('x = ');ReadLn(x); a:=x+5; b:=Sin(x); x:=x*x; if (a<=b)and(b<=x) then WriteLn(a,' ',b:0:3,' ',x) else if (a<=x)and(x<=b) then WriteLn(a,' ',x,' ',b:0:3) else if (b<=a)and(a<=x) then WriteLn(b:0:3,' ',a,' ',x) else if (b<=x)and(x<=a) then WriteLn(b:0:3,' ',x,' ',a) else if (x<=a)and(a<=b) then WriteLn(x,' ',a,' ',b:0:3) else if (x<=b)and(b<=a) then WriteLn(x,' ',b:0:3,' ',a) End.
Если мощность алфавита N=256 символов, значит один символ "весит" i=8 бит=1 байт, т.к.N=2^i Информационный объем текста=количество символов в тексте*"вес" символа ( I=K*i). Отсюда: K=I/i=1.5Кбайта/1байт=1.5*1024=1536 символов
Для хранения одного из 32 символов требуется log(2)32 = 5 бит (2^5 = 32). Объем переданного сообщения = 20*5*60 = 6000 байт = 6000*8 бит. Количество переданных символов = 6000*8 / 5 = 9600