Требуется создать БД для врачей и работников регистратуры поликлиники. Такая БД должна хранить сведения об участках, которые относятся к поликлинике, о расписании работы участковых врачей , информацию о врачах и карточки пациентов. Определить структуру таблиц по объектам Карта пациента и Пациенты: список полей таблицы, их типы данных и ключевые поля. Без компьютера нужно описать структуру таблицы: какие поля будут, типы данных.​

1. Допустим,что учитель сказал правду Савелию, тогда у Савелия оценка 4 или 3. У Виталия тогда оценка 3, так как учитель ошибся, а у Аркадия или 5 или 4.
Савелий-4
Виталий-3
Аркадий-5.
ЭТО ВОЗМОЖНО!

2. Допустим, что учитель сказал правду Виталию, тогда у него оценка 4 или 5, тогда у Савелия 5, а у Аркадия 4 или 5, так как учитель ошибся.
Савелий-5
Виталий-4 или 5
Аркадий-4 или 5
НЕ У КОГО НЕТ ОЦЕНКИ 3, А ЭТОГО БЫТЬ НЕ МОЖЕТ

3.Допустим, что учитель сказал правду Аркадию, тогда у него оценка 3, тогда у Савелия 3 или 4, так как учитель ошибся, а у Виталия оценка 3, так как учитель ошибся.
Савелий-3 или 4
Виталий-3
Аркадий-3
НЕ У КОГО НЕТ ОЦЕНКИ 5,А ЭТОГО БЫТЬ НЕ МОЖЕТ.
ответ:
Савелий-4
Виталий-3
Аркадий-5

1)

var

  a: 100..999;

  a1, a2, a3: 0..9;   //а1 - сотни, а2 - десятки, а3 - единицы

 

begin

  writeln('введите натуральное трехзначное число');

  readln(a);

  a1: = a div 100;

  a2: = (a mod 100) div 10;

  a3: = a mod 10;

  writeln('полученное число:   ', a1, a3, a2);

end.

2)

var

  a: 100..999;

  a1, a2, a3: 0..9;

 

begin

   

  writeln('введите натуральное трехзначное число');

  readln(a);

  a1: = a div 100;

  a2: = (a mod 100) div 10;

  a3: = a mod 10;

  writeln('полученное число:   ', a2, a1, a3);

end.

3)

var

  a: 100..999;

  a1, a2, a3: 0..9;

 

begin 

  writeln('введите натуральное трехзначное число');

  readln(a);

  a1: = a div 100;

  a2: = (a mod 100) div 10;

  a3: = a mod 10;

  writeln('полученное число:   ', a3, a1, a2, a3);

end.

4)

var

  a: 1000..9999;

  a1, a2, a3, a4: 0..9;

 

begin

  writeln('введите натуральное четырехзначное число');

  readln(a);

  a1: = a div 1000;   //тысячи

  a2: = (a mod 1000) div 100;   //сотни

  a3: = (a mod 100) div 10;   //десятки

  a4: = a mod 10;   //единицы

  writeln('полученное число:   ', a4, a3, a2, a1);

end.

все остальное делается наподобие этого: просто в writeln меняешь местами цифры и все.