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

Var err, right, answer : integer; begin err : = 0; right : = 0; writeln('сейчас вам будет предложен тест по сериалу "кухня". '); writeln('к каждому вопросу два варианта ответа. '); writeln('вы должны ввести номер правильного ответа и нажать < еnter> '); writeln; writeln('понравилась последняя серия кухни? : '); writeln('1. да'); writeln('2. очеень понравилась'); write('ваш ответ: '); readln(answer); if answer = 1 then begin writeln('неправильно'); err : = err + 1; end else begin writeln('правильно'); right: =right+1; end; writeln; writeln('жена макса: '); writeln('1. вика'); writeln('2. катя'); write('ваш ответ: '); readln(answer); if answer = 1 then begin writeln('правильно'); right : = right +1; end else begin writeln('неправильно'); err : = err + 1; end; writeln; writeln('любишь этот сериал? : '); writeln('1. обожаю'); writeln('2. : 3'); write('ваш ответ: '); readln(answer); if answer = 2 then begin writeln('правильно'); right : = right +1; end else begin writeln('неправильно'); err : = err + 1; end; writeln('правильных ответов: ', right); writeln('неправильных ответов: ', err); end.я сделяль : 3

Vara,b,c,d,x1,x2: real; begin writeln('дано уравнение вида ax^2+bx+c=0'); writeln ('укажи переменную "a"'); readln(a); writeln ('укажи переменную "b"'); readln(b); writeln ('укажи переменную "c"'); readln(c); if a = 0   then writeln('не квадратное уравнение! ')   else begin       d: = sqr(b)-4*a*c;       if d < 0 then writeln('нет корней')                 else begin                     x1: = (-b+sqrt(d))/2*a;                     x2: = (-b-sqrt(d))/2*a;                     writeln ('x1 =',x1,'   x2 =',x2);                     end;       end; end.