1мен 7 аралығында сандарға сәйкес сахна түсін кемпірқосақ түсіне өзгертетін жоба құрыңдар (мысалы, 1-кы-зыл 15 ​

//PascalABC.NET версия 3.2, сборка 1389
//Если программа не запускается, то обновите версию

function CreateArray(length: integer): array of integer;
begin
    var a := new integer[length];
    for var i := 0 to length - 1 do
        a[i] := Random(0, 100);
//    Println(a);
    Result := a;
end;

begin
    var arrays := new List<(char, array of integer)>();
    arrays.Add(('a', CreateArray(15)));
    arrays.Add(('b', CreateArray(13)));
    arrays.Add(('c', CreateArray(08)));
    arrays.Add(('d', CreateArray(11)));
    arrays.Add(('e', CreateArray(14)));
    arrays.Add(('f', CreateArray(10)));
    arrays.Add(('g', CreateArray(09)));
    
    foreach var a in arrays.OrderBy(a -> a.Item2.Min()) do
    begin
        Println(a.Item1, a.Item2.Min());
    end;
end.

1) 36 = 3q + 6
21 = 2q + 1
15 = q + 5
3q + 6 = (2q + 1) + (q + 5) = 3q + 6 - тождество!
Тогда такое равенство можно записать в любой системе счисления, в которой есть цифра 6, т.е. основание системы счисления q >=7
2) 100 = q^2
33 = 3q + 3
22 = 2q + 2
16 = q + 6
5 = 5
q^2 = (3q + 3) + (2q + 2) + (q + 6) + 5
q^2 = 6q + 16
q^2 - 6q - 16 = 0
q1 = 8; q2 = -2
В системе с основанием -2 не может быть троек, поэтому ответ q = 8
3) 100 = q^2
1000 = q^3
По условию 2q^2 = q^3, откуда q = 2
4) Да, может, например, в системе счисления с основанием 2.