Выписать целые десятичные числа, принадлежащие числовым промежуткам: [11100(2); 11111(2)] [47(8); 55(8)] [2в(16); 3в(16)] в скобках указаны системы счисления

[11100(2); 11111(2)] = [28; 31]
x = {28, 29, 30, 31}

[47(8);55(8)] = [39; 45]
x = {39, 40, 41, 42, 43, 44, 45}

[2В(16); 3В(16)] = [43; 59]
x = {43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59}

Объяснение:

Мать девочки работала на ламповом заводе, отец был пожарным и людей из завалов, редко бывая дома. В 1942-м мать с дочерью, обессиленные, взяв с собой только узел белья с одеждой, сели в автобус, который должен был перевести их и других смельчаков по Ладожскому озеру.

- Помню, сели в вагон товарного поезда. Когда он сделал остановку, не знаю зачем, мама меня повела на улицу, возможно, на дороге был какой-то пункт питания.

В 1946 году отец Ирины Борисовны демобилизовался с Псковского фронта, семья и воссоединилась.

Много лет работала в Гусиноозерске в Забайкалье, потом вместе с мужем жили в Архангельске, пока не вернулись в Вологду. 76-летней годовщиной со дня освобождения блокады Ленинграда Ирину Сафронову поздравил Мэр Вологды Воропанов Сергей: - У Ирины Борисовны очень непростой жизненный путь, но, тем не менее, в свои 86 лет она замечательно выглядит и полна энергии.

//
begin
  var L:=new List<fraction>; // вынужденное: метод иногда дает дубликаты
  (var a0, var an):=(abs(Self.First),abs(Self.Last));
  for var p:=1 to a0 do begin
    if a0 mod p<>0 then continue;
    for var q:=1 to an do begin
      if an mod q<>0 then continue;
      var g:=Self.First; (var f, var t):=(g,p);
      foreach var k in Self.Skip(1) do begin
        var r:=k*t; (f,g,t):=(f*q+r,-g*q+r,t*p);
        end;
      if f=0 then L.Add((p,q));
      if g=0 then L.Add((-p,q))
      end
    end;
    Result:=L
end;

function RedFrac(Self:fraction):fraction; extensionmethod;
begin
  (var p,var q):=Self;
  var s:=sign(p*q);
  (p,q):=(abs(p),abs(q));
  (var a,var b):=(p,q);
  while b<>0 do begin a:=a mod b; Swap(a,b) end;
  Result:=(s*p div a,q div a)
end;

function Beautify(Self:sequence of fraction):sequence of string;
    extensionmethod;
begin
  Result:=Self.Select(e->e.RedFrac).Distinct.OrderBy(x->x[0]/x[1]).
    Select(e->e[0]+(e[1]<>1?'/'+e[1]:''))
end;

begin
  ReadArrInteger(4).RatFact.Beautify.Println
end.

Примеры
1) -36x³+3x²+14x+3 = 0
 
3 14 3 -36
-1/3 3/4

2) (x-1)(x+2)(x+3/5) = 0;  5x³+8x²-7x-6 = 0

-6 -7 8 5
-2 -3/5 1