25 1. сколько кбайт информации содержит сообщение объемом 218 бит? 2. дано а = a716, b = 2518. какое из чисел c, записанных в двоичной системе, отвечает условию a < c < b? 101011002 101010102 3. вычислите сумму чисел x и y, если x = 1101112, y = 1358. результат представьте в двоичном виде. 110101002 101001002 4. найдите основание x системы счисления, если известно, что 2002x = 13010.

2. 1)

3. 1), 3), 5)

Объяснение:

2. Выражение лучше сначала преобразовать.

Чтобы исходное выражение стало ложным, можно перед ним поставить общий знак отрицаний, а затем найти условие истинности полученного выражения.

¬ (¬ ( (третья буква согласная) ∧ (последняя буква гласная) ) )

Двойное отрицание равнозначно утверждению, поэтому останется (третья буква согласная) ∧ (последняя буква гласная)

Ему удовлетворяет только имя Анна.

3. И здесь рассуждаем аналогично.

¬ (  (число < 75) ∧ ¬(число четное) )

По правилу де-Моргана избавляемся от общего отрицания

¬(число < 75) ∨ ¬(¬(число четное) )

(число ≥ 75) ∨ (число четное)

Чисел, не меньших 75, у нас два - 75 и 80. Четных тоже два - 46 и 80.

Поскольку условие "ИЛИ", выбираем три числа: 46, 57, 80.

// Напишите программу, которая в последовательности натуральных чисел определяет количество
//чисел, кратных 3. Программа получает на вход количество чисел в
//последовательности, а затем сами числа. В последовательности всегда имеется число,
//кратное 3. Количество чисел не превышает 100. Введённые числа не превышают 300.
//Программа должна вывести одно число - количество чисел, кратных 3.

Var  i,j,x  :word;
     n      :integer;
begin
  writeln('Введите количество цифр в последовательности');
  Readln (j);
  if j>100 then //Проверка накличество чисел в последовательности
      begin
        writeln ('По условия задачи цифр не должно быть более 100');
        writeln ('Введите количесво цифр еще раз');
        readln (j);
      end;
  for i:=1 to j do
  begin
    Writeln ('Введите ',i,' число');
    readln (n);
    if n>300 then //проверка максимального значения числа
      begin
        writeln ('Данное число не удовлетворяет условиям задачи (>300');
        writeln ('Введите его еще раз');
        readln (n);
      end;
      n:= n mod 3;
      if n=0 then x:=x+1;
      end;
   Writeln ('Количество чисел, кратных 3:');
   Writeln (x);
end.