Формирование базы данных с использованием СУБД начинается с задания структуры БД (3б) А) определения полей базы данных Б) определение типов полей В) ввод имен Д) типы данных 2. Объект, предназначенный для поочередного ввода, просмотра и редактирования записей в БД (1б) А) поле Б) запись В) форма 3. Формы отображают (1б) А) одну запись из таблицы и имеют кнопки перехода от одной записи к другой. Б) скрытые имена В) удаленные записи 4. Задача формы (1б) А) показывать удаленные записи Б) предоставить пользователю простой, понятный и удобный интерфейс В) л8предоставлять фильтрацию имен 5. Главным преимуществом использования формы в БД (1б) А) возможность видеть одновременно все поля одной записи на экране, расположенные построчно Б) блокировать записи БД В) архивировать поля и записи на экране 6. Это отбор записей, удовлетворяющих заданному условию или совокупности условий (1б) А) запись Б) поле В) фильтр 7. Фильтры подразделяются на (2б) А) простые Б) архивные В) сложные

1. 1v1=1 ,  1∧0=0 ,  ¬0=1

2. ¬А=1, ВvС=0, Д∧С=1

Объяснение:

1

AvВ, если А = 1, В = 1           1v1=1

A ∧ B, если A = 1, B = 0        1∧0=0

¬ А, если А= 0                      ¬0=1

2.     1. инверсия – это логическое отрицание, в данном случае высказывание А не истинно, значит не(не истина)=истинна

2. Дизъюнкция – логическое сложение будет истинным тогда, когда хотя бы одно исходное высказывание истинно, так как В-ложь и С ложь, то ВvС=0

3. Конъюнкция – логическое умножение будет истинным тогда, когда оба исходных выражения истинны. Т.к. Д и С истинны, то и результат истина, т.е. =1

program DecToBinCount;

uses

 SysUtils, StrUtils;

function DecToBin (m: Integer): string;

var

 r: Integer;

 s: string;

begin

 while (m > 0) do Begin

  r := m mod 2;

  m := m div 2;

  s := IntToStr (r) + s;

 end;

 Result := s;

end;

var

 m, n, x, i, c: Integer;

 s: string;

begin

 Write ('Введите M, N, X: ');

 ReadLn (m, n, x);

 WriteLn;

 c := 0;

 for i := m to n do begin

   s := DecToBin (i);

   if RightStr (s, x) = StringOfChar ('0', x) then begin

     WriteLn (s, ' ');  // для проверки. после тестирования закомментарить

     Inc (c);

   end;

 end;

 WriteLn (c);

 ReadLn;

end.