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

например, база данных классного руководителя: "мой класс".

символьное поле: фио

числовое: телефон

дата: дата рождения

логическое: является отличнико-ударником?

1) r=187,5 a=9 d=63 2) var a,b,c,d,e: integer; sr: real; begin writeln('оценка за первый опрос'); read(a); writeln('оценка за второй опрос'); read(b); writeln('оценка за третий опрос'); read(c); writeln('оценка за четвертый опрос'); read(d); writeln('оценка за пятый опрос'); read(e); sr: =(a+b+c+d+e)/5; writeln('среднее значение равно ',sr); end. 3)var a,b,d, dengi,ostatok: integer; begin writeln('количество денег у человека'); read(dengi); writeln('стоимость перчаток'); read(a); writeln('стоимость портфеля'); read(b); writeln('стоимость галстука'); read(d); ostatok: =dengi-a-b-d; writeln('остаток от изначальной суммы равен  ',ostatok); end.

1. надо добавить точку в последней строке программы. иначе работать не будет. 2. меняется всего одна строка в программе: program pr2; type   student = record {объявление нового типа данных student}       lastname: string; {фамилия студента}       bal: array [1..5] of integer; {массив для 5-ти оценок}       average: real {средний студента}   end; var   pupil: array [1..100] of student; {массив pupil (максимум из 100 элементов) типа student}   n, i, j, s: integer; {переменные целого типа} begin   write('введите количество студентов: ');   readln(n);   for i : = 1 to n do   begin{запрос данных по n студентам}       with pupil[i] do       begin           write('введите фамилию студента №', i, ': '); {запрос фамилии студента под номером i}           readln(lastname);           s : = 0; {целочисленная переменная для определения суммы студента}           for j : = 1 to 5 do           begin{цикл для обработки 5-ти оценок каждого студента}               write('введите оценку за экзамен №: ', j, ': ' );               readln(bal[j] );               s : = s + bal[j]; {суммирование 5-ти оценок студента}           end;           average : = s / 5; {определение среднего значения и запись в переменную average}       end;   end;   writeln;   writeln( 'студенты, имеющие средний больший или равный 4');   for i : = 1 to n do   begin       if pupil[i].average > = 4 then {если средний студента > =4}       write(pupil[i].lastname,', ');   end; end.