Создать структуру БД «Областная больница». Данные организовать в виде 3 таблиц: «Стационарные отделения», «Лаборатория», «Поликлиника». Каждая таблица должна содержать не менее 4-х полей с различными типами данных и 8 записей. Поля и записи в таблицах задать самостоятельно. Выполнить задания либо средствами MS ACCESS, либо письменно. В случае письменного выполнения начертить структуру БД, представить каждую таблицу в режиме аналогичном режиму Конструктора и режиму отображения данных. Для выполнения задания можно использовать приложение MS ACCESS. В данном случае нужно на проверку прислать файл базы данных, предварительно его заархивировав.

6)  a = 9        b = 17

7)  a = 71       b = 189

5)  a = 14       b = 42

Объяснение:

6)

а = 3 + 8 * 4 = 3 + 32 = 35

b = (a // 10) + 14 = 3 + 14 = 17

a = (b % 10) + 2 = 7 + 2 = 9

a = 9       b = 17

7)

a = 1819

b = (a // 100) * 10 + 9 = 18 * 10 + 9 = 180 + 9 = 189

a = (10 * b - a) % 100 = (10 * 189 - 1819) % 100 = (1890 - 1819) % 100 = 71 % 100 = 71

a = 71       b = 189

5)

a = 42

b = 14

a = a // b = 42 // 14 = 3

b = a * b = 3 * 14 = 42

a = b // a = 42 // 3 = 14

a = 14       b = 42

// - целочисленное деление двух чисел, возвращает целочисленный результат деления, отбрасывая дробную часть.

35 / 10 = 3,5

35 // 10 = 3

% - получение остатка от деления, возвращает разность от делимого и произведения целочисленного результата деления на делитель

17 / 10 = 1,7

17 // 10 = 1 (целочисленный результата деления)

остаток = 17 - 1 * 10 = 17 - 10 = 7

17 % 10 = 7

const

 n = 7;

 m = 6;

 

var

 A, b: array[1..n, 1..m] of integer;

 i, j, max, min: integer;

 

begin

 writeln('Исходный массив:');

 randomize;

 for i := 1 to n do

 begin

   for j := 1 to m do

   begin

     a[i, j] := random(10) + 3;

     write(a[i, j]:5)

   end;

   writeln;

 end;  

 writeln('Максимальный элемент каждого столбца:');

 for j := 1 to m do

 begin

   max := -Maxint;

   for i := 1 to n do

     if max < a[i, j] then  

       max := a[i, j];

   write(max:5)

 end;

 writeln;

 for j := 1 to m do

 begin

   min := Maxint;

   for i := 1 to n do

     if min > a[i, j] then  

       min := a[i, j];

   for i := 1 to n do

     b[i, j] := a[i, j] - min;

 end;

 writeln('Новый массив:');

 for i := 1 to n do

 begin

   for j := 1 to m do

     write(b[i, j]:5);

   writeln;

 end;  

end.

0

Объяснение:

я руский