1. Виконайте переведення чисел з десяткового коду у двійковий код: 301 і 152.

Var a,b,c:real;
begin
readln(a,b,c);
if (a = b) and (b = c) then begin
writeln ('Треугольник равносторонний');
writeln('Его высота = ',(sqrt(3) * a)/2:0:3)
end else 
if (a = b) or (b = c) or (c = a) then begin
writeln('Треугольник равнобедренный');
writeln('Его полупериметр = ',(a+b+c)/2);
end else
begin 
writeln('Треугольник разносторонний');
if (a>b) and (a>c) then writeln('Большая сторона = ',a) else
if (b>a) and (b>c) then writeln('Большая сторона = ',b) else
writeln('Большая сторона = ',c); end;
end.

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

Например, есть две таблицы:

таблица 1. Магазины
поле ID - первичный ключ (целое, автоинкремент);
поле Name - наименование (строка)

таблица 2. Товары
поле ID - первичный ключ (целое, автоинкремент);
поле Name - наименование товара (строка);
поле Shop - номер магазина (целое)

В поле Shop таблицы Товары хранятся значения поля ID таблицы Магазины. Это называется связью таблицы Товары с таблицей Магазины по первичному ключу Один-ко-Многим (одной строке в таблице Магазины может соответствовать 0 и более записей в таблице Товары). Обозначают такую связь, как правило, так:

Товары.Shop -> Магазины.ID