3.Перевести следующие числа в заданную систему счисления: 10101001111,0111101,— ?16
111001110111011001, —
8
FA1B,DE16—?,
1435,25610 —
»
?,
​

Быстрый ответ, если нету времени на чтение объяснения: АВГБ (179.134.144.44)

Объяснение:

Итак, для начала, что такое IP-адрес. Это строка вида X.X.X.X, где каждое число X лежит в диапазоне [0, 255], потому что только такие числа могут поместиться в одном байте. Очевидно, что X не может быть четырёхзначным числом. Это нам потом пригодится.

Для начала сделаем вывод, что кусочек Б должен идти последним, потому что с него ничего не может начинаться (4417 > 255; 449 > 255; 444 > 255), т.е. какая бы буква не шла после Б, мы не получим число, меньшее либо равное 255, а значит Б должно идти последним.

Далее, можно заметить, что третьим по счёту обязательно должен идти кусочек Г, потому что он заканчивается на трёхзначное число 144, т.е. после него обязательно должна сразу идти точка (ибо если её не будет, то получится четырёхзначное или ещё большее число), а точка у нас есть только в начале кусочка Б, который идёт четвёртым. Поэтому Г - третий по счёту кусочек.

Далее, остались кусочки А и В. Кусочек В не может идти перед кусочком А хотя бы потому, что тогда они образуют между собой число 1317, которое является четырёхзначным и выходит за диапазон [0, 255], а следовательно, сначала идёт кусочек А (первым), а за ним кусочек В (вторым), тогда всё будет в порядке.

Итого, имеем последовательность: АВГБ. Она соответствует следующему IP-адресу: 179.134.144.44

В этом IP-адресе все четыре числа действительно лежат в диапазоне [0, 255], а значит этот IP-адрес корректен, что ещё раз подтверждает правильность наших рассуждений.

Программа может выглядеть так:

uses Crt;
const n=10;
type Mas=array [1..n] of integer;
var A: Mas;
    i, temp, MinInd, MaxInd, Max, Min: integer;
begin
ClrScr;
Randomize;
for i:=1 to  n do
   begin
   A[i]:=10+random(90);
   Write (A[i]:5);
   end;
WriteLn;
Max:=A[1]; MaxInd:=1;
Min:=A[1]; MinInd:=1;
for i:=2 to n do
begin
  if A[i]<Min then
     begin
       Min:=A[i];
       MinInd:=i;
     end
     else
       if A[i]>Max then
       begin
       Max:=A[i];
       MaxInd:=i;
     end;
end;
 temp:=A[MaxInd];
 A[MaxInd]:=A[MinInd];
 A[MinInd]:=temp;
 WriteLn;WriteLn;
 for i:=1 to  n do
   Write (A[i]:5);
 WriteLn;
 ReadLn;
end.