В три десятом царстве в неком тексте был народ килобайт было внем семей 1024. Каждую семью звали байт .В каждой семье жило 8 бит .
Var
n,k,sum:integer; s,s1:string;
begin
write('n = '); readln(n);
s:='';
sum:=0;
while (n>0)and(n mod 2 = 0) do
begin
k:=n mod 10;
str(k,s1);
s:=s1+'+'+s;
sum:=sum+k;
n:=n div 10;
end;
if s<>'' then s[length(s)]:='=';
writeln(s,sum);
end.
Пример:
n = 1784
8+4=12
1) 7,5 Кбайт = 7,5*1024 байт = 7,5*1024*8 бит
Объем одного символа = 7,5*1024*8/7680 = 8 бит
Мощность алфавита = 2^8 = 256 символов
2) 1/512 Мбайт = 1024/512 Кбайт = 2 Кбайта = 2*1024*8 бит
Объем одного символа = 2*1024*8/2048 = 8 бит
Мощность алфавита = 2^8 = 256 символов
3) При использовании 256-символьного алфавита для хранения одного символа требуется log(2)256 = 8 бит = 1 байт.
1/32 Мбайт = 1024/32 Кбайт = 32 Кбайт = 32*1024 байт
Количество символов в сообщении = 32*1024/1 = 32768
CLS
INPUT x
IF x^2-5<0 OR x=2 THEN PRINT "не может быть": END
y=<span>(х^3-21*x-31+5)/(2-x)+(x^2-5</span>)^0.5
PRINT Y
END