Составить тест в паскале, с оператора case,

1. общее количество символов 1800 + 2 х 3000 = 7800. пусть символы кодируются в однобайтном коде ascii, тогда 7 800 символов имеют информационный объём 7 800 байт или 7800 х 8 =62 400 бит. при скорости передачи 1200 бит/с на передачу этой информации потребуется время 62400 / 1200 = 52 с 2.  предполагая кодировку ascii определим объем информации: 7920 х 40 х 8 = 2 534 400 бит. скорость передачи составит 2534400 / 33 = 76 800 бит/с 3. переводим килобайты в биты (1 кбайт = 1024 байта, 1 бит = 8 байт): 3750 х 1024 х 8 = 30 720 000 бит. переводим минуты в секунды: 2 х 60 = 120 с определяем скорость передачи: 30720000 / 120 = 256 000 бит/с 1)  500 кбайт = 500 х 1024 х 8 = 4 096 000 бит. время передачи данных 4096000 / 128000 = 32 с 2) за 2 минуты, равные 2 х 60 = 120с, будет передано 256000 х 120 = 30 720 000 бит. переводим в килобайты: 30720000 / 8 / 1024 = 3 750 кбайт 3)  3000 кбайт = 3000 х 1024 х 8 = 24 576 000 бит 5 минут - это 5 х 60 = 300 с скорость передачи данных составит 24576000 / 300 = 81 920 бит/с

var a:array[1..9] of integer;

   i,j,c,sum,t:integer;

begin

 c:=0;

 sum:=0;

 for i:=1 to 9 do readln(a[i]);

 for i:=1 to 9 do begin

   if a[i]>2 then c += 1;

   if a[i]<12 then sum += a[i];

 end;

 for i:=1 to 9 do begin

   for j:=9 downto i do begin

     if a[j]>a[i] then begin

       t:=a[i];

       a[i]:=a[j];

       a[j]:=t;

     end;

   end;

 end;

 writeln('Количество чисел > 2: ',c);

 writeln('Сумма чисел < 12: ',sum);

 for i:=1 to 9 do writeln('a[',i,']=',a[i]);

end.