Представлений код - для розв’язку задачі сортування елементів масиву, який складається з 6 елементів, за зростанням. Завдання: змініть код таким чином, щоб сортування відбувалось за спаданням.
var
Form1: TForm1;
i:integer;
a: array [0..5] of integer=(4, 9, 2, 0, 1, 8);
procedure TForm1.Button1Click(Sender: TObject);
begin
for i:=0 to 5 do
memo1.lines[i]:=inttostr(a[i]);
end;
procedure TForm1.Button2Click(Sender: TObject);
var j, min, n, buf, imin : integer;
begin
n:=6;
for i := 0 to n-1 do
begin
min := a[i];
imin := i;
for j := i+1 to n do
begin
if a[j] < min then
begin
min := a[j];
imin := j;
end;
end;
buf:=a[i];
a[i]:=min;
a[imin] := buf;
end;
for i:= 1 to n do
Memo2.Lines[i] := IntToStr(a[i]);
end;
end.
биология-
человек теплокровное животное - истинное
обезьяна насекомое - ложное
география -
франция находиться в Европе - истинное
великобритания больше США - ложное
информатика -
жёсткий диск служит для хранения информации - истинное
ОЗУ обрабатывает информацию - ложное
история -
вторая мировая война началась 1 сентября 1939 года - истинное
Гитлер был сыном Наполеона - ложное
математика -
2+3=5 - истинное
3+3=15 - ложное
литература -
войну и мир написал Толстой - истинное
Лермонтов написал "Евгений Онегин" - ложное
Заметим, что первый и второй байты IP-адреса и адреса сети равны, следовательно, первый и второй байты маски IP адреса состоят только из единиц.
Запишем третий байт IP-адреса и адреса сети в двоичной системе счисления:
19610 = 110001002
19210 = 110000002
Видим, что два первых слева бита маски − единицы, а биты с третьего по пятый могут быть как нулями, так и единицами. Для того, чтобы значение было наибольшим, эти биты должен быть равны единице. Получаем, что третий слева байт маски равен 111110002 = 24810. В маске сети сначала идут единицы, а затем нули, следовательно, четвёртый байт маски состоит из нулей.
Таким образом, наибольшее количество единиц в двоичной записи маски подсети: 8 + 8 + 5 =21.
ответ: 21.
Объяснение:
вот подробнее