Для эффективного хранения в базе данных отношения один (b, место проживания) ко многим (a, жилец) необходимо (данные о месте проживания и проживающих хранятся в разных таблицах): выберите один ответ: 1)создать дополнительную колонку в таблице a с указание идентификаторов b, с которым оно входит в отношение. 2)создать дополнительную таблицу для хранения идентификаторов a и b входящих в отношение. 3)создать две таблицы для хранения идентификаторов a и b входящих в отношение 4)создать дополнительную колонку в таблице b с указанием идентификторов a, с которым оно входит в отношение

ответ находится при обычной логики, тут даже не надо особых знаний по теории реляционных БД. При отношении "один ко многим" каждый из "многих" должен ссылаться на конкретный "один", или попросту, у каждого жильца должно быть свое место проживания. Поэтому в таблице (А, жилец) нужно сделать поле, в котором будет указана ссылка (точнее, ключ записи) для таблицы (B, место проживания).

ответ: 1)

===== PascalABC.NET =====

begin

 // 1

 var s := 1;

 var i := 1;

 repeat

   s += i * i * i;

   i += 2

 until i > 13;

 Println('Сумма кубов нечетных чисел от 1 до 13 равна', s);

 // 2

 var (sum, pr) := (0, 1);

 for var j := -50 to 50 do

   // если условие предполагает, что "кратны 5 и 8"

   // на самом деле означает "кратны 5 ИЛИ 8", заменить

   // в следующей строке and на or

   if (j mod 5 = 0) and (j mod 8 = 0) then

   begin

     Print(j);

     sum += j;

     pr *= j

   end;

 Writeln;

 Write('Сумма: ', sum, ', произведение: ', pr)

end.

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

Var s:string;
n,k,i:integer;
begin
for n:=1 to 2 do
 begin
 writeln('Введите строку ',n,':');
 readln(s);
 k:=0;
 for i:=1 to length(s) do
  begin
  case s[i] of
   '[': k:=k+1;
   ']': k:=k-1;
   end;
  end;
 if k=0 
 then writeln('В строке ',s,' количество [ и ] одинаково')
 else writeln('В строке ',s,' количество [ и ] не одинаково');
 end;
end.

Пример:
Введите строку 1:
c:=a[imax,j]; a[imax,j]:=a[imin,j]; a[imin,j]:=c
В строке c:=a[imax,j]; a[imax,j]:=a[imin,j]; a[imin,j]:=c количество [ и ] одинаково
Введите строку 2:
Просто [ пример ]] со [[ скобками
В строке Просто [ пример ]] со [[ скобками количество [ и ] не одинаково