Кратко(База данных) 1. Объект необходимо создать, чтобы разорвать связь между таблицами М: М (превратить в связь 1: М)? Что обязательно содержит такой объект?
2. Для чего используют справочники при проектировании баз данных?
3. Опишите последовательность, как установить связь между таблицами на схеме данных.
4. Типы данных используют при создании структуры таблицы в MS ACCESS?
function gcd(a,b:integer):integer;
// Нахождение НОД
var
i: longint;
begin
while b <> 0 do begin
a := a mod b;
i := b; b := a; a := i
end;
Result:=a
end;
begin
var a:=ReadInteger('a=');
var b:=ReadInteger('b=');
var nod:=gcd(a,b);
if nod>1 then
WritelnFormat('Дробь сократима: {0}/{1}={2}/{3}',
a,b,a div nod,b div nod)
else WritelnFormat('Дробь {0}/{1} несократима',a,b)
end.
Тестовое решение:
a= 23541
b= 335160
Дробь сократима: 23541/335160=59/840