Вычислите десятичные эквиваленты следующих чисел:
буквы (а) и (в)​

64000 бит/с*16 c=1024000 бита/8=128000 байт=125 килобайт

type

person=record

fam: string;

imya: string;

day: integer;

end;

var

a: array[1..50] of person;

i,n,z: integer;

begin

write('n='); readln(n);

for i: =1 to n do

begin

write('fam-'); readln(a[i].fam);

write('imya-'); readln(a[i].imya);

write('day-'); readln(a[i].day);

end;

write('z-'); readln(z);

for i: =1 to n do

if a[i].day=z then writeln (a[i].fam, ' ',a[i].imya);

readln;

end.

поскольку язык не указан пишу в том который мне удобнее

def temp-table wares no-undo

  field ware as char

  field cost as dec extent 13

  field infl as dec.

def var i as int.

def var infl as dec.

input from data.txt.

repeat:

  create wares.

  import wares.

end.

input close.

do i = 2 to 13:

    infl=random(0.0005, 0.02).

  for each wares :

        wares.cost[i]=wares.cost[i-1]*(1+infl).

  end.

end.

4мин=240 сек.

1 половина всего времени = 240/2=120 сек.

за перпую половину времени передалось = 120 сек * 117 кбит = 14040 кбит

за вторую половину времени передалось в 3 раза меньше (т.к. скорость была в 3 раза меньше) = 14040/3=4680 бит

всего передалсоь = 14040+4680=18720 кбит = 2340 кбайт