Определить , в каком квадранте находится точка (x, y) и вывести номер квадранта

Ввод: x ^ y С/П.

П1 -> П0 x=0 07 0 С/П ИП1 x=0 12 0 С/П

ИП1 x>=0 22 ИП0 x>=0 20 1 С/П 2 С/П

ИП0 x<0 27 3 С/П 4 С/П

С учётом моментов, когда точки лежат на осях.

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

2 Если в отношении имеется единственный потенциальный ключ, он является и первичным ключом

7 В области навигации щелкните таблицу или запрос, на основе которых вы хотите создать отчет. На вкладке Создание в группе Отчеты выберите Отчет. Access создаст отчет и отобразит его в режиме макета

только на 3 вопроса смогла ответить

Задание 1var    a, b, k, m: real;begin    Writeln('Введите поочерёдно катеты a, b, k и m: ');    Readln(a, b, k, m);        if (0.5 * a * b) = (0.5 * k * m) then        Writeln('Площади треугольников равны!')    else Writeln('Площади треугольников не равны!');end.Задание 2var    number, firstDigit, secondDigit: integer;begin    Write('Введите число: ');    Readln(number);        if ((number >= 100) and (number <= 999)) or ((number <= -100) and (number >= -999)) then        begin            firstDigit := number div 100;            secondDigit := (number div 10) mod 10;                        if (firstDigit > secondDigit) then                Writeln(firstDigit, ' > ', secondDigit)            else if (firstDigit < secondDigit) then                Writeln(firstDigit, ' < ', secondDigit)            else Writeln(firstDigit, ' = ', secondDigit)        end    else Writeln('Число не трёхзначное!');end.