A)принять документы, аттестат, заявление и прочее.
добавить фамилию в списки, для вступительных экзаменов.
задачи должна решать:
<span>1. Допускать ли абитуриентов до вступительных экзаменов, исходя из всей имеющейся информации об абитуриенте.
Б)--------------
В) </span>1) Запрос на создание бд кодировки и общие настройки.
2) Создание таблиц, полей и описание их характеристик (длина в символах тип данных и тд. Также создаются ключи и индексы для полей.
3) Создание связей между таблицами.
<span>4) Заполнение БД данными.</span>
<em>// PascalABC.NET 3.3, сборка 1627 от 27.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger('Количество строк (столбцов) в матрице:');
Writeln('*** Исходная матрица ***');
var a:=MatrRandom(n,n,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
var (su,sd,sl):=(0,0,0);
for var i:=0 to n-1 do
for var j:=0 to n-1 do
if i<j then su+=a[i,j]
else
if i=j then sd+=a[i,j]
else sl+=a[i,j];
Writeln('Суммы элементов:');
Writeln(' - верхней треугольной матрицы ',su);
Writeln(' - главной диагонали ',sd);
Writeln(' - нижней треугольной матрицы ',sl)
end.
<u>Пример</u>
Количество строк (столбцов) в матрице: 4
*** Исходная матрица ***
-73 -89 4 39
77 -32 23 -45
-29 -70 -88 -40
-83 9 21 -46
----------------
Суммы элементов:
- верхней треугольной матрицы -108
- главной диагонали -239
- нижней треугольной матрицы -75
<u>"Школьный" вариант</u>
const
nn=20; { максимальный размер }
var
a:array[1..nn,1..nn] of integer;
i,j,n:integer;
su,sd,sl:longint;
begin
Write('Количество строк (столбцов) в матрице:');
Readln(n);
Randomize;
Writeln('*** Исходная матрица ***');
su:=0; sd:=0; sl:=0;
for i:=1 to n do begin
for j:=1 to n do begin
a[i,j]:=Random(199)-99;
Write(a[i,j]:4);
if i<j then su+=a[i,j]
else
if i=j then sd+=a[i,j]
else sl+=a[i,j]
end;
Writeln
end;
Writeln('Суммыа элементов:');
Writeln(' - верхней треугольной матрицы ',su);
Writeln(' - главной диагонали ',sd);
Writeln(' - нижней треугольной матрицы ',sl)
end.
1. Наполнить ведро в 9 л
2. Перелить в 5 л и вылить; в результате в 9-литровом останется 4 л.
3. Перелить 4 л из 9-литрового в 5-литровое.
4. Наполнить опять 9-литровое.
5. долить из 9-литрового в 5-литровое 1 л; в результате в 9-литровом останется 8 л.
6. Вылить из 5-литрового воду.
7. Перелить из 9-литрового в 5-литровое 5 л.
8. В результате в 9-литровом останется 3 л.
Что и следовало получить.Короткая запись: 2 × 9 - 5 × 3 = 18 -15 = 3.
Var
n,k,d,dmin:integer;
begin
Write('n='); Readln(n);
dmin:=10;
while n>0 do begin
d:=n mod 10;
if d<dmin then begin dmin:=d; k:=1 end
else if d=dmin then k:=k+1;
n:=n div 10
end;
Writeln('Минимальная цифра ',dmin,' встречается ',k,' раз(а)');
Readln
end.