Не самый рациональный метод решения, но как говорится чем смог тем
var a,b,c,x,kc,kn,k1,k2:integer; begin kc:=1; kn:=1; k1:=0; k2:=0; a:=0; b:=0; writeln('Введите число x'); read(x); while x>0 do begin c:=x mod 10; if c mod 2=0 then begin inc(k1); a:=a+c*kc; kc:=kc*10; end; if c mod 2<>0 then begin inc(k2); b:=b+c*kn; kn:=kn*10; end; x:=x div 10; end; if k1>k2 then writeln('Четных больше нечетных') else if k1=k2 then writeln('Количество четных = количеству нечетных') else writeln('Четных меньше нечетных'); writeln(a,' ', b); end.
Когда что то качается, то обычно показывается не только скорость но и время до конца скачивания (при данной скорости), так что само значение скорости нужно только чтоб видеть увеличивается скорость, уменьшается или стабильна.
для размеров файлов 1 бит это одна ячейка, которая может быть или 0 или 1 1 б(байт) = 8 бит 1 Кб (килобайт) = 1024 б 1 Мб (мегабайт) = 1024 Кб 1 Гб (гигабайт) = 1024 Мб Для практического использования данных знаний вполне достаточно Если же интересно покопаться, то на самом деле есть килобайты и кибибайты и они отличаются, потому что кило = 1000, а киби = 2^10 = 1024.
Если говорить о скорости, то она стандартно считается в битах, килобитах, мегабитах и тд. Т.е. в 8 раз меньше соответственно байта, килобайта, мегабайта и тд. Но для практического использования это все не нужно)
Информационный объём сообщения, К-количество символов, i - бит весит один символ.
Объяснение:
вес текстовой информации (в битах)
k - кол-во символов
i - вес одного символа