Объём файла в битах равен 8·1024·625 (8 — количество битов в байте, 1024 — количество байтов в киболайте).
Время передачи = (8·1024·625)/(128·8·125) = 40
Всего 19 спортсменов,отличных оценок по математике 0 ,2 плавца умеют ходить на лыжах
(х<3) подходит х=1 и х=2
(х<2) подходит х=1
(х>2) подходит х=3, х=4
1) 2048 / 256 = 8 - во столько раз уменьшилась скорость передачи файла
2) 8 кбайт / 8 = 1 кбайт - размер файла, который можно передать со скоростью 256 бит/сек
Не самый рациональный метод решения, но как говорится чем смог тем помог)
var a,b,c,x,kc,kn,k1,k2:integer;
<span>begin </span>
<span>kc:=1; </span>
<span>kn:=1; </span>
<span>k1:=0; </span>
<span>k2:=0; </span>
<span>a:=0; </span>
<span>b:=0; </span>
<span>writeln('Введите число x'); </span>
<span>read(x); </span>
<span>while x>0 do begin </span>
<span>c:=x mod 10; </span>
<span>if c mod 2=0 then begin </span>
<span>inc(k1); </span>
<span>a:=a+c*kc; </span>
<span>kc:=kc*10; </span>
<span>end; </span>
<span>if c mod 2<>0 then begin </span>
<span>inc(k2); </span>
<span>b:=b+c*kn; </span>
<span>kn:=kn*10; </span>
<span>end; </span>
<span>x:=x div 10; </span>
<span>end; </span>
<span>if k1>k2 then writeln('Четных больше нечетных') else if k1=k2 then writeln('Количество четных = количеству нечетных') else writeln('Четных меньше нечетных'); </span>
<span>writeln(a,' ', b); </span>
<span>end. </span>
