СОЧ ПО ИНФОРМАТИКЕ 5. Ученик отправил своему другу фото размером 2 Мбайт. Фотография была доставлена за 4 с. Определите пропускную сети в бит/с и Кбит/с. (указать формулу пропускной сети)
begin var a := ReadInteger('Возраст Антона:'); var b := ReadInteger('Возраст Бориса:'); var v := ReadInteger('Возраст Виктора:'); if (a > b) and (a > v) then begin Println('Антон старше всех');exit; end; if (b > a) and (b > v) then begin Println('Борис старше всех');exit; end; if (v > a) and (v > b) then begin Println('Виктор старше всех');exit; end; if (a > v) and (a = b) then begin Println('Антон и Борис старше Виктора.');exit; end; if (a > b) and (a = v) then begin Println('Антон и Виктор старше Бориса.');exit; end; if (v > a) and (v = b) then begin Println('Виктор и Борис старше Антона.');exit; end; if (a = b) and (b = v) then begin Println('Виктор, Борис и Антон одного возраста.');exit; end; end.
Как-то даже не хочется размышлять, как можно было это решить по-нормальному...
var s:string; a:array[1..4] of byte; i:integer; begin read(s); for i:=1 to length(s) do begin if s[i]='(' then a[1]:=i; if (s[i]=' ') and (a[1]>0) then begin a[2]:=i; break end end; for i:=length(s) downto 1 do begin if s[i]=')' then a[4]:=i; if (s[i]=' ') and (a[4]>0) then begin a[3]:=i; break end end; s:=copy(s,1,a[1])+copy(s,a[3]+1,a[4]-a[3]-1)+copy(s,a[2],a[3]-a[2]+1)+copy(s,a[1]+1,a[2]-a[1]-1)+copy(s,a[4],length(s)-a[4]+1); write(s); end.
4 194 304 бит/сек = 4 096 Кбит/сек
Объяснение:
I = V * t, где
I - объем переданной информации
V - скорость соединения (пропускная канала, в битах в секунду или подобных единицах)
t - время передачи
Дано:
I = 2 Мбайт = 16 777 216 бит
t = 4 сек
Найти:
V
I = V * t
V = I / t
V = 16 777 216 / 4 = 4 194 304 бит/сек = 4 096 Кбит/сек
1 байт = 8 бит
1 Кбайт = 1 024 байт
1 Мбайт = 1 024 Кбайт
1 Кбит/сек = 1 024 бит/сек