Задача № 1)
Код программы получился довольно таки большой , но можно сам файл *.pas Закинуть в интернет и оттуда скачать.
Задача №2)
uses crt;
var m:array[1..100,1..100] of integer;
i,i1,j,str,stb,temp:integer;
begin
clrscr;
writeln('Пожалуйста введите число строк массива: '); readln(str);
writeln('Пожалуйста введите число Столбцов массива: '); readln(stb);
clrscr;
writeln('Массиа из ',str,' строк, и из ',stb,' столбцов успешно создан!');
<span>writeln;
for i:=1 to str do
begin
for j:=1 to stb do
begin
m[i,j]:=random(80)+1;
write(m[i,j]:3,' ');
end;
writeln;
end;
writeln;
writeln(' отсортирован по убыванию');
writeln;
for i1:=1 to str do
for i:=1 to str-1 do
for j:=i+1 to str do
if m[i1,i]<m[i1,j] then begin temp:=m[i1,i]; m[i1,i]:=m[i1,j]; m[i1,j]:=temp;end;
writeln;
for i:=1 to str do
begin
for j:=1 to stb do
begin
write(m[i,j]:3,' ');
end;
writeln;
end;
readkey;
<span>end.
Запускаешь водишь строк и столбцов после нажимаешь Enter программы сделает своё дело</span></span>
Ответ:
1б,байт 1024, КБ 980,мб 1024
AB+A!B=A(B+!B)=A
!(X+Y)(X!Y)=(!X!Y)(X!Y)= 0
!XY+!(X+Y)+X = !XY+!X!Y+X = !X(Y+!Y)+X = !X+X = 1
(X+Y)(!X+Y)(!X+!Y) = F
(X+Y)(!X+Y) = X!X+XY+Y!X+YY = 0+XY+Y(!X+1) = XY+Y= Y(X+1) = Y
Y(!X+!Y)=Y!X+Y!Y=Y!X
(X+Y)(!X+Y)(!X+!Y) = Y!X
5 пример особо не упростишь
!(XY+!Z)=!(XY)Z=(!X+!Y)Z
Этот значок подключения по проводной сети. Если вы подключены по кабелю, то он и должен быть там. У 7-ки бывали проблемы с нормальным определением типа подключения.
