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

Им нужно поменять цвета или что? Я не поняла задание, объясните Мы сейчас на дистанционном обучении и учитель ничего не может сказать! ​

var a: array[1..2,1..30] of integer; i,j: integer; begin      for i: = 1 to 30 do begin            writeln('введите номер ученика: ');             read(a[1,i]);             writeln('введите оценку: ');             read(a[2,i]);       end;             for i: = 1 to 10 do begin        writeln(i: 2,' - ');             for j: = 1 to 30              if a[1,j]=i then                        write(a[2,i],' ');       end;                   readkey; end.     

1) program imja_program

2) var imja_peremennoj: tip_peremennoj

3)integer,byte,real,long, short и еще какие-то но вряд ли будешь их использовать

более подробно смотри в википедии

1)а

var a: real;

begin

readln(a);

a1 : = a*a;   /получили а^2a : = a1*a1;   /получили a^4

a : = a1*a*a;   /получили a^(4+4+2)

writeln(a);

end.

1б)

var x: real;

i: integer;

begin

readln(a);

a1 : = a*a*a;   /получили а^3a : = a1*a1*a1;   /получили a^9

a : = a*a1*a1; /получили а^(9+3+3)

writeln(a);

end.

2)

var a: real; beginreadln(a); writeln('высоты равны', a*a*sqrt(3)/4*a); writeln('радиус вписанной окружности', a*a*a/4*a*a*sqrt(3)/4); writeln('радиус описанной окружности', a*a*sqrt(3)/4*2/3*a); end.

3)var a: real; beginreadln(a);

writeln('в килобайтах' a/1024);

writeln('в мегабайтах' a/(1024*1024));

end.

и /н -п верхнее подчёркиванием \ш_