<span>1. *@
2. @~*
3.*~
4.*
5.~
Ответ: 5 различных букв</span>
В майкрасофт ексель смоделируй и перениси ...
A) A&B∨!A&A∨B&A∨B&!B∨!A&!B=A&B∨0∨B&A∨0∨!A&!B=A&B∨!A&!B
б) !(A&B)&!(C&!A)&!(B&!C)=!(A&B)&(!C∨!!A)&(!B∨!!C)=!(A&B)&(!C∨A)&(!B∨C)= !(A&B)&(!C&!B∨A&!B∨A&C∨!C&C)=!(A&B)&(!C&!B∨A&!B∨A&C∨0)= !(A&B)&!C&!B∨!(A&B)&A&!B∨!(A&B)&A&C=(!A∨!B)&!C&!B∨(!A∨!B)&A&!B∨ (!A∨!B)&A&C=!A&!C&!B∨!B&!C&!B∨!A&A&!B∨!B&A&!B∨!A&A&C∨!B&A&C= !A&!C&!B∨!C&!B∨0∨A&!B∨0∨!B&A&C=!C&!B&(!A∨1)∨!B&A&(1+C)= !C&!B&1∨!B&A&1=!C&!B∨!B&A=!B&(!C∨A)
В)
A B C !A (!A∨B) F
0 0 0 1 1 0
0 1 0 1 1 0
1 0 0 0 0 1
1 1 0 0 1 0
0 0 1 1 1 1
0 1 1 1 1 1
1 0 1 0 0 0
1 1 1 0 1 1
Ответ:
program Change;
var
n, i, j, t: Integer;
A: array of Integer;
begin
Write ('Введите четное число N: ');
ReadLn (n);
if n mod 2 = 0 then begin
SetLength (A, n);
Randomize;
for i := Low (A) to High (A) do begin
A [i] := Random (100);
Write (A [i] :3, ' ');
end;
i := 0;
while i < n do begin
t := A [i];
A [i] := A [i + 1];
A [i + 1] := t;
i := i + 2;
end;
WriteLn;
for i := Low (A) to High (A) do begin
Write (A [i] :3, ' ');
end;
end else
WriteLn ('Введено не четное число.');
ReadLn;
end.
PascalABC.NET 3.2:
begin
Println('Исходный массив:');
var A := ArrRandom(30, -50, 50).Println;
var m := A.Max;
Println('Максимум равен', m);
Println('Изменённый массив:');
A.Select(x -> x + m).Println;
end.
Пример вывода:
Исходный массив:
-47 -34 -25 -42 -38 38 -32 42 21 -25 9 -41 -49 9 12 -3 37 38 20 -36 -42 42 37 6 37 -41 -44 -19 23 8
Максимум равен 42
Изменённый массив:
-5 8 17 0 4 80 10 84 63 17 51 1 -7 51 54 39 79 80 62 6 0 84 79 48 79 1 -2 23 65 50