1)в кокой строке единицы измерения информации расположены по убыванию а) гигабайт мегабайт килобайт байт бит б)бит байт мегабайт килобайт гигабайт в)байт бит килобайт мегабайт гигабайт г) бит байт килобайт мегабайт гигабайт 2)для кодирования одного из цветов палитры служит двоичный код 001.сколько цветов содержит палитра? а) 3 б) 8 в) 16 г) 24 3)статья,набранная на компьютере,содержит 16 страниц,в каждой строке 40 символов. в одном из представлений unicode каждый символ кодируеться 16 битами. определите информационный объем статьи в этом варианте представлеия unikode. c решением а)50кбайт в)400байт б)40кбайт г)800байт 4)в каком из ниже предложений правильно расставлены пробелы между словами и знаками препинаниями? а) с родной земли- умри , не сходи. б) с родной земли -умри, не сходи . г) с родной земли-умри, не сходи. д) с родной земли - умри, не сходи. 5)определите какое из указанных ниже имен файлов удовлетворяет маске: ? se*lo.d? а) selo.d в) hseolo.dpp б) selo.dpp г) hseolo.d 6)в некотором каталоге хранился файл вьюга.doc, имевший полное имя d: \2013\зима\вьюга.doc. в этом каталоге создали подкаталог январь и файл вьюга.doc переместили в созданный подкаталог. укажите полное имя этого файла после перемещения. если сдесь есть решение то напишите его а) d: \январь\вьюга.doc б) d: \2013\зима\вьюга.doc в) d: \2013\январь\вьюга.doc г) d: \2013\зима\январь\вьюга.doc 7). считая, что каждый символ кодируется одним байтом, определите, чему равен информационный объём следующего высказывания: где родился, там и сгодился ( с решением ) 8)валя шиф­ру­ет рус­ские слова (последовательности букв), за­пи­сы­вая вме­сто каж­дой буквы её код: а д к н о с 01 100 101 10 111 000 некоторые це­поч­ки можно рас­шиф­ро­вать не одним например, 00010101 может озна­чать не толь­ко ска, но и снк. даны три ко­до­вые цепочки: 100101000 100000101 0110001 найдите среди них ту, ко­то­рая имеет толь­ко одну расшифровку, и за­пи­ши­те в от­ве­те рас­шиф­ро­ван­ное слово. 9)в таб­ли­це за­про­сы к по­ис­ко­во­му серверу. для каж­до­го запроса ука­зан его код — со­от­вет­ству­ю­щая буква от а до г. рас­по­ло­жи­те коды за­про­сов слева на­пра­во в по­ряд­ке возрастания ко­ли­че­ства страниц, ко­то­рые нашёл по­ис­ко­вый сервер по каж­до­му запросу. по всем за­про­сам было най­де­но разное ко­ли­че­ство страниц. для обо­зна­че­ния логической опе­ра­ции «или» в за­про­се используется сим­вол «|», а для ло­ги­че­ской операции «и» — «& »: код запрос а рим& париж& лондон б лондон | рим в рим& лондон г рим | париж | лондон 10) несжатое растровое изображение размером 64*512 пикселей занимает 16 кб памяти. каково максимально возможное число цветов в палитре изображения варианты я все которые у меня есть решите все

Опишем формальную грамматику для разбора входной строки.
<символ> ::= <буква> | <знак>
<буква> ::= 'a' | 'b' | 'c' | ... | 'y' | 'z'
<знак> ::= '+' | '-'
<терм> ::= <буква> [ <терм> ]
<операнд> ::= [ <знак> ] <терм>
<строка> ::= <операнд> [ <операнд> ]

Ниже приведена программа на языке Pascal.ABC, реализующая разбор входной строки и её упрощение по правилам приведения подобных членов.

const
  n = 30; {максимальное количество операндов, я так захотел!}
  pm = ['+', '-']; {символы <знак>}
  letter = ['a'..'z'];{символы <буква>}

type
  tOper = record
    sgn: integer;
    vars: string
  end;
  tM = array[1..n] of tOper;
  taSort = array[1..n] of string;{для сортировки}

var
  s: string;
  l, p: integer;
  symb: set of char;

procedure GetSymbol(var c: string);
{
Сканирует строку s с позиции p и возвращает элемент <символ>
Продвигает курсор p к первому необработанному символу строки s
}
var
  found: boolean;

begin
  found := false;
  c := '';
  while (p <= l) and (not found) do
  begin
    if s[p] in symb then begin
      found := true;
      c := s[p]
    end;
    p := p + 1
  end
end;

procedure Sort(var a: taSort; kol: integer);
{Сортировка вставкой}
var
  i, j: integer;
  x: string;
  flag: boolean;
begin
  for i := 2 to kol do
  begin
    x := a[i];
    j := i - 1;
    flag := False;
    while (j > 0) and (not flag) do
      if x < a[j] then
      begin
        a[j + 1] := a[j];
        j := j - 1
      end
      else flag := True;
    a[j + 1] := x
  end
end;

function GetSign(c: char): integer;
begin
  case c of
    '+': Result := 1;
    '-': Result := -1;
  else Result := 0
  end
end;

procedure GetOper(var oper: tOper);
{
Строит элемент <операнд> максимально возможной длины и упорядочивает
составляющие его символы в лексикографическом порядке.
Если операнд построить невозможно, в oper.vars помещается пустая строка.
Процедура обращается к процедурам GetSymbol и Sort.
}
var
  i, n: integer;
  c, c1: string;
  ExitFlag: boolean;
  a: taSort;

begin
  c := '';
  ExitFlag := false;
  GetSymbol(c1); {попытаемся получить знак}
  if c1[1] in pm then oper.sgn := GetSign(c1[1])
  else begin
    oper.sgn := 1;
    c := c1
  end;
  repeat
    GetSymbol(c1);
    if c1 = '' then ExitFlag := true
    else if c1[1] in pm then begin
      p := p - 1;
      ExitFlag := true
    end
    else
      c := c + c1
  until ExitFlag;
  if c <> '' then
  begin
    n := Length(c);
    for i := 1 to n do a[i] := c[i];
    Sort(a, n);
    c := '';
    for i := 1 to n do c := c + a[i];
    oper.vars := c
  end
  else oper.vars := ''
end;

procedure Add2M(var a: tM; c: tOper; var pn: integer);
{
Ищет среди элементов массива a.vars элемент, совпадающий с с.vars.
При нахождении алгебраически добавляет c.sgn к a[i].sgn, в противном случае
добавляет в массив новый элемент a[i], увеличивая pn на 1.
При вызове pn - количество элементов в массиве.
}
var
  i: integer;
  c1: string;
  found: boolean;

begin
  c1 := c.vars;
  i := 1;
  while (i <= pn) and (not found) do
  begin
    found := (c1 = a[i].vars);
    if found then a[i].sgn := a[i].sgn + c.sgn
    else i := i + 1
  end;
  if not found then begin
    a[i].sgn := c.sgn;
    a[i].vars := c1;
    pn := pn + 1
  end
end;

function Convert(k: integer): string;
begin
  case k of
    -1: Result := '-';
    0: Result := '';
    1: Result := '+';
  else begin
      Str( k, Result);
      if k > 0 then Result := '+' + Result
    end
  end
end;

var
  c, cz: string;
  n1, i: integer;
  opr: tOper;
  a: tM;

begin
  symb := pm + letter;
  p := 1;
  n1 := 0;
  writeln('Введите исходное выражение');
  readln(s);
  s := LowerCase(s); {перевод символов в нижний регистр}
  l := Length(s);
  repeat
    GetOper(opr);
    Add2M(a, opr, n1)
  until p > l;
  if n1 > 0 then
  begin
    cz := Convert(a[1].sgn);
    if cz = '+' then cz := '';
    if cz = '' then c := ''
    else c := cz + a[1].vars;
    for i := 2 to n1 do
    begin
      cz := Convert(a[i].sgn);
      if cz <> '' then c := c + cz + a[i].vars
    end
  end
  else c := '';
  if c='' then c:='0';
  if c[1]='+' then c:=copy(c,2,Length(c)-1);
  writeln('Результат: ', c)
end.

Тестовое решение:

Введите исходное выражение
abc +    a+bca  -acb+abc+abc  +a 
Результат: 3abc+2a

Введите исходное выражение
ab-bca+bc+cba+abc-ba+cba+da+adb+bad-db
Результат: 2abc+bc+ad+2abd-bd

Program znanija;
const
  PRICE_ONE_DISK = 10;
  PRICE_TEN_DISK = 90;
  EMPTY = 0;
  INPUT_MONEY = 'Введите количество денег: ';
  OUTPUT_PRICE = 'Купленно: ';
  OUTPUT_ONE_DISK = ' - по одному диску';
  OUTPUT_TEN_DISK = ' - по десять дисков';
  OUTPUT_MANEY = 'Осталось денег: ';
  CHAR_TABS = Chr(9);
var
  sumMoney : integer;
  countOneDisk : integer := 0;
  countTenDisk : integer := 0;
begin
  write(INPUT_MONEY);
  read(sumMoney);
 
  while((sumMoney - PRICE_TEN_DISK) >= EMPTY) do
  begin
    inc(countTenDisk);
    sumMoney := sumMoney - PRICE_TEN_DISK;
  end;
 
  while((sumMoney - PRICE_ONE_DISK) >= EMPTY) do
  begin
    inc(countOneDisk);
    sumMoney := sumMoney - PRICE_ONE_DISK;
  end;
 
  writeln(OUTPUT_PRICE);
  writeln(CHAR_TABS, countTenDisk, OUTPUT_TEN_DISK);
  writeln(CHAR_TABS, countOneDisk, OUTPUT_ONE_DISK);
  writeln(OUTPUT_MANEY, sumMoney);
end.