function IsOrtho(a: array[,] of integer): boolean;
begin
var n := a.RowCount - 1;
for var row1 := 0 to n do
for var row2 := 0 to n do
begin
var s := 0;
for var col := 0 to n do
s += a[row1, col] * a[row2, col];
if (row1 = row2) and (s <> 1) then
begin
IsOrtho := False;
Exit
end;
if (row1 <> row2) and (s <> 0) then
begin
IsOrtho := False;
Exit
end
end;
IsOrtho := True
end;
begin
var n := 5;
var a := ReadMatrInteger(n, n);
if IsOrtho(a) then
Println('Ортонормированная')
else
Println('Не ортонормированная')
end.
На pascalabc.net
Так как сказано то что потратили одинаковое количество банок то коричневой краски потратили тоже 8 банок
Управляющий объект: Человек
Объект управления 1: Кнопка
Объект управления 2: Часы
Цель управления: Вовремя дать звонок учащимся
1) Первым здоровается тот, кто входит в помещение. При знакомстве и представлении будет уместна корректная, сдержанная улыбка. Если людей представляет кто-то третий, знакомство идет по очереди.
1. Используя инструмент "Линия" начертим прямую линию.
2. Скопируем эту линию, повернем на 90 градусов влево.
3. При помощи инструмента "Линия" достроим треугольник.
4. Скопируем треугольник и расположим, как на скрине ниже.
5. Скопированный треугольник отразим на 180 градусов и расположим, как на скрине.
Итог и построение по шагам смотри во вложении.