Создать структуру таблицы базы данных “Телефонный справочник”. Представить таблицу в режиме Конструктора (с указанием названий полей и типов данных) и в режиме отображения данных.

Телефон

Фамилия И.О.

Адрес

2126374

Котин У.Г.

пр. Рокоссовского 3–73

2223344

Андреев А.А.

пр.Пушкина 23–33

2223449

Борисов Д.А.

ул.Плеханова 5–113

2263869

Борисевич Г.Н.

ул.Плеханова 12–13

2324354

Андреев Б.С.

ул.Сердича 13–89

2336348

Антонов А.Н.

пр.Партизанский 7–45

2574729

Кукин Б.И.

ул.Серова 17–89

2437384

Яшин Р.А.

ул.Жилуновича 30–16

Выделить записи из справочника при расширенного фильтра (меню Данные /Фильтр):

Выделить записи, у которых номер телефона содержит во второй группе цифры 50 или 30, например, 260–50–40,
Затем среди выделенных записей выделить записи, в которых фамилия начинается с букв «Ан»,
Выделенные записи показать в виде таблицы.
Все пункты задания нужно выполнить в письменном виде с полным описанием всех необходимых действий в системе управления базами данных. Привести иллюстрации необходимых инструментов и команд. Для каждого пункта задания начертить результирующие таблицы.

В магическом квадрате сумма по каждой строке, по каждому столбцу и по обоим диагоналям равна одному и тому же числу, называемому константой магического квадрата. Программе достаточно найти одну любую сумму, принять её в качестве упомянутой константы, а затем обнаружить хотя бы один случай неравенства очередной вычисленной суммы с принятой константой. Если нарушений обнаружено не будет, квадрат является магическим.

const
  n2 = 10;

var
  a: array[1..n2, 1..n2] of integer;
  i, j, n: integer;
  k, s: longint;
  magic: boolean;

begin
  Write('Введите число строк (cтолбцов) в магическом квадрате: ');
  Readln(n);
  for i := 1 to n do
  begin
    Write('Введите через пробел элементы строки ', i, ': ');
    for j := 1 to n do Read(a[i, j])
  end;
  s := 0;
  for j := 1 to n do s := s + a[1, j];
  k := s; i := 2; magic := true;
  while magic and (i <= n) do
  begin
    s := 0;
    for j := 1 to n do s := s + a[i, j];
    magic := (s = k);
    i := i + 1
  end;
  j := 1;
  while magic and (j <= n) do
  begin
    s := 0;
    for i := 1 to n do s := s + a[i, j];
    magic := (s = k);
    j := j + 1
  end;
  if magic then begin
    s := 0;
    for i := 1 to n do s := s + a[i, i];
    magic := (s = k);
  end;
  if magic then begin
    s := 0;
    for i := 1 to n do s := s + a[i, n - i + 1];
    magic := (s = k);
  end;
  if magic then Writeln('Квадрат является магическим, k=', k)
  else Writeln('Квадрат не является магическим')
end.

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

Введите число строк (cтолбцов) в магическом квадрате: 5
Введите через пробел элементы строки 1: 11 24 7 20 3
Введите через пробел элементы строки 2: 4 12 25 8 16
Введите через пробел элементы строки 3: 17 5 13 21 9
Введите через пробел элементы строки 4: 10 18 1 14 22
Введите через пробел элементы строки 5: 23 6 19 2 15
Квадрат является магическим, k=65

Введите число строк (cтолбцов) в магическом квадрате: 4
Введите через пробел элементы строки 1: 1 1 1 1
Введите через пробел элементы строки 2: 1 1 1 1
Введите через пробел элементы строки 3: 1 1 1 1
Введите через пробел элементы строки 4: 1 1 2 -1
Квадрат не является магическим

Усложнённый вариант(всё работает исправно,при вводе больше или меньше 3 чисел выводится сообщение "Это не трёхзначное число!"):var
i,a,d:integer;
s:string;
begin
writeln('Введите трёхзначное число ');
read(s);
d:=length(s);
if d<>3 then
write('Это не трёхзначное число!');
if d=3 then
if (s[1]=s[2])or(s[1]=s[3])or(s[2]=s[3]) then
write('Да')
else
write('Нет');
end. Простой вариант(выводится ошибка если цифр больше или меньше трёх!):var
i,a,d:integer;
s:string;
begin
writeln('Введите трёхзначное число ');
read(s);
if (s[1]=s[2])or(s[1]=s[3])or(s[2]=s[3]) then
write('Да')
else
write('Нет');
endю