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

Телефон

Фамилия И.О.

Адрес

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,
Затем среди выделенных записей выделить записи, в которых фамилия начинается с букв «Ан»,
Выделенные записи показать в виде таблицы.

Если у нас есть координаты этих вершин на плоскости вида (x; y), то
A(x1,y1)
B(x2,y2)
C(x3,y3)

program q;
var x1,x2,y1,y2,x3,y3:integer;
ab,ac,alp,bet,alfa,s:real;
begin
write('введите координаты точки A: ');
read(x1);
readln(y1);
write('введите координаты точки B: ');
read(x2);
readln(y2);
write('введите координаты точки C: ');
read(x3);
readln(y3);
ab:=sqrt(sqr(x2-x1)+sqr(y2-y1));
ac:=sqrt(sqr(x3-x1)+sqr(y3-y1));
alp:=arctan((y2-y1)/(x2-x1));
bet:=arctan((y3-y1)/(x3-x1));
alfa:=bet*2-alp;
s:=sin(alfa)*(ab*ac)/2;
writeln('площадь треугольника=',s);
readln
end.

Не самый лёгкий, но работающий

const  n = 10000;//Не изменяемая по ходу программы переменная
var  a: array[1..n] of integer;  b: array[1..10]of integer;  c: array[1..10]of integer;  i, s, v: integer;
begin  for i := 1 to 10 do //Заполнение массива с числами от 1 до 10    c[i] := i;  for i := 1 to n do //Заполнение массива    a[i] := random(10) + 1; //Делается для того чтобы в массиве не было нулей  for i := 1 to n do    case a[i] of      1: b[1] := b[1] + 1;      2: b[2] := b[2] + 1;      3: b[3] := b[3] + 1;      4: b[4] := b[4] + 1;      5: b[5] := b[5] + 1;      6: b[6] := b[6] + 1;      7: b[7] := b[7] + 1;      8: b[8] := b[8] + 1;      9: b[9] := b[9] + 1;      10: b[10] := b[10] + 1;    End;    for i := 1 to 10 do    for s := 1 to 9 do      if b[s] > b[s + 1] then begin        v := b[s];        b[s] := b[s + 1];        b[s + 1] := v;        v := c[s];        c[s] := c[s + 1];        c[s + 1] := v;      end;  writeln(c[10], ' - их ', b[10]);    end.