СОЧ ПО ИНФОРМАТИКЕ 5. Ученик отправил своему другу фото размером 2 Мбайт. Фотография была доставлена за 4 с. Определите пропускную сети в бит/с и Кбит/с. (указать формулу пропускной сети)

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 бит/сек

//PascalABC.NET
//Версия 3.3, сборка 1634 (14.02.2018)

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.