У вас уже есть таблица с данными можно создать 2 запроса с справочником где будет взаимодействие с вашей таблицей и не будет такого что в 13:00 преподователь ведет пары в разных классах делаете сперва 1 запрос на лекции где он делит их согласно вашим предпочтениям далее второй запрос практика где так же указываете данные из таблиц и запросов потом немножко корректируете все проверяете и сохраняете запрос и жмете выполнить должно получится что он поделит их согласно установленного расписания вами в определенные дни указанные вами
Var
i, a: byte;
begin
Randomize;
for i:=1 to 3 do write(Random(101):4);
<span>end.</span>
//Pascal ABC.NET v3.1 сборка 1219
Const
n=5;
Var
a:array[1..n] of integer;
i,s:integer;
begin
for i:=1 to n do
begin
readln(a[i]);
if a[i]<i then s:=s+a[i];
end;
writeln(s);
end.
Пример ввода:
2
2
1
1
2
Пример вывода:
4
Хм, ну если я правально поняла задание, то:
Площадь треугольника равняется полупроизведению высоты и основания, к которому она проведена.
N - количество цветов.
i - глубина цвета.
N=2^i
1) 2^1=2
2) 2^2=4
3) 2^3=8
4) 2^4=16
5) 2^8=256
6) 2^16=65536
7) 2^24=16777216