Представить в виде степени с основанием 3 число 25

думаю3 степени 5

Быстрый ответ, если нету времени на чтение объяснения: АВГБ (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-адрес корректен, что ещё раз подтверждает правильность наших рассуждений.

Delphivar  a1, a2: array of integer;  n, c, i: integer; procedure PrintDescending(a: array of integer); var i, j, max: integer; begin  for i := 0 to Length(a) - 1 do  begin    for j := 0 to Length(a) - 1 do      if a[j] > a[max] then max := j;    Write(a[max], ' ');    a[max] := -10001;  end; end; begin  //Запрашиваем ввод длины массива:  Write('Введите длину массива: ');  Read(n);    //Устанавливаем длину массивов:  SetLength(a1, n);  SetLength(a2, n);    //Заполняем первый массив случайными числами:  for i := 0 to n - 1 do    a1[i] := Random(201) - 100;    //Заполняем второй массив только нечётными элементами первого:  for i := 0 to n - 1 do    if Abs(a1[i]) mod 2 = 1 then      begin      a2[c] := a1[i];      c := c + 1;    end;    //Урезаем второй массив:  SetLength(a2, c);    //Выводим первый массив:  for i := 0 to n - 1 do    Write(a1[i], ' ');  Writeln;    //Выводим второй массив в порядке убывания:  if c = 0 then Write('Нечётных элементов нет.')  else PrintDescending(a2); end.

Пример работы: