Следующие числа: 129, 139, 153, 163
1. F= (x1 или не х2 и х1) или (х2 или х1 )
х1=0; х2=0 F= 0 + ¬0*0 + 0+0 = 0
x1=1 x2=1 F= 1 + ¬1*1 + 1 +1 = 1
x1=0 x2=1 F= 0+ ¬1*0 + 1+0 = 1
x1=1 x2=0 F= 1+ ¬0*1 + 0+1 = 1
--------------------------------------------------------------------------------------
2.
F= (x1 или х2) и не(х2 и х1 или х1)
х1=0 х2=0 F= (0 + 0 ) *¬ (0 *0 +0) = 0
х1=1 х2=1 F=( 1 + 1 ) * ¬( 1*1 +0 ) = 0
x1=0 x2=1 F= (0 + 1) * ¬(1*0 +0 ) = 1
x1=1 x2=0 F= (1 + 0 ) * ¬ (0*1 + 1 ) = 0
Немного непонятно, но если сам пробовал, то разберешься
3)
направо 90
вперед 100
налево 90
вперед 100
повторить 2{
направо 90
<span>вперед 100}
</span><span>
4)
</span>направо 90
вперед 100
налево 90
вперед 100
повторить 2{
направо 90
<span>вперед 100}
</span>повторить 4{
повторить 2{
налево 90
<span>вперед 100}
</span>повторить 2{
направо 90
<span>вперед 100}
</span>}
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