1.Выберите два подхода к измерению информации.. 1)алфавитный 2)математический 3)вероятностный 4)числовой 2. Информационный вес символа двоичного алфавита определяют как единицу информации и называют 1)1 Бит 2)1Байт 3)1Кб 4)1 Мб 3. Количество информации i, которое несет один символ (информационный вес одного символа алфавита) в тексте, и мощность алфавита N связаны формулой Хартли: 1)2*i = N 2)2^i=N 3)2/i=N 4. Выберите правильный ответ 1)2 Мбайта = 2048 Кбайт. 2)16 бит =4 байтам. 3)4 байта = 36 битам. 4)8 Кбайта =8000 байтам. 6.Укажите функцию процессора.. 1)передача информации 2)обработка информации 3)ввод информации 4)хранение информации 7.Эффективность работы компьютерной сети определяются следующими параметрами 1)ценность 2)пропускная 3)надежность 4)разрядность

вариант решения, если элементы вводятся
var
  n, i, x, s : integer;
  t: string;
begin
  writeln('количество чисел');
  readln(n);
  s := 0;
  for i := 1 to n do
    begin
      writeln(i,' число:');
      readln(x);
      if (x > 9) and (x<100)) then
        begin
          t :=  IntToStr(x);
         if (((t[1] = '3') and (t[2] <> '3')) or (t[1] <> '3') and (t[2] = '3'))   then s := s+1;
        end;
    end;
    writeln('ответ ',s)
end.

вариант решения, если элементы заданы массивом
const
n=50
var
  i, x, s : integer;
  t: string;
  m1: array [1..n] of integer;
begin
  s := 0;
  for i := 1 to n do
     begin
      x := m1[i];
      if (x > 9) and (x<100)) then
        begin
          t := IntToStr(x);
         if (((t[1] = '3') and (t[2] <> '3')) or (t[1] <> '3') and (t[2] = '3'))   then s := s+1;
        end;
    end;
    writeln('ответ ',s)
end.

вариант решения, если элементы вводятся
var
  n, i, x, s : integer;
  t: string;
begin
  writeln('количество чисел');
  readln(n);
  s := 0;
  for i := 1 to n do
    begin
      writeln(i,' число:');
      readln(x);
      if (x > 9) and (x<100)) then
        begin
          t :=  IntToStr(x);
         if (((t[1] = '3') and (t[2] <> '3')) or (t[1] <> '3') and (t[2] = '3'))   then s := s+1;
        end;
    end;
    writeln('ответ ',s)
end.

вариант решения, если элементы заданы массивом
const
n=50
var
  i, x, s : integer;
  t: string;
  m1: array [1..n] of integer;
begin
  s := 0;
  for i := 1 to n do
     begin
      x := m1[i];
      if (x > 9) and (x<100)) then
        begin
          t := IntToStr(x);
         if (((t[1] = '3') and (t[2] <> '3')) or (t[1] <> '3') and (t[2] = '3'))   then s := s+1;
        end;
    end;
    writeln('ответ ',s)
end.