:перевести числа в восьмеричную систему счисления: а) 1010111002; б) 33516*.

101011100₂= 101 011 100₂=(замена по таблице в учебнике)=534₈
335₁₆=1100110101₂=001 100 110 101₂=(замена)=1465₈

For i in 0..15
    c = "E0".to_i(16) + i
    puts "%s_16 = %s_8 = %s_4 = %s_2" % [c.to_s(16),c.to_s(8),c.to_s(4),c.to_s(2)]
end

e0_16 = 340_8 = 3200_4 = 11100000_2
e1_16 = 341_8 = 3201_4 = 11100001_2
e2_16 = 342_8 = 3202_4 = 11100010_2
e3_16 = 343_8 = 3203_4 = 11100011_2
e4_16 = 344_8 = 3210_4 = 11100100_2
e5_16 = 345_8 = 3211_4 = 11100101_2
e6_16 = 346_8 = 3212_4 = 11100110_2
e7_16 = 347_8 = 3213_4 = 11100111_2
e8_16 = 350_8 = 3220_4 = 11101000_2
e9_16 = 351_8 = 3221_4 = 11101001_2
ea_16 = 352_8 = 3222_4 = 11101010_2
eb_16 = 353_8 = 3223_4 = 11101011_2
ec_16 = 354_8 = 3230_4 = 11101100_2
ed_16 = 355_8 = 3231_4 = 11101101_2
ee_16 = 356_8 = 3232_4 = 11101110_2
ef_16 = 357_8 = 3233_4 = 11101111_2

Var
    a, real_coin: array[1..6] of integer;
    forged_coin, i: integer;

begin
    for i := 1 to 6 do
        a[i] := 10;
    forged_coin := random(6);
    a[forged_coin] := random(4) + 8;  
    writeln(forged_coin);
    
    for i := 1 to 6 do
        write(a[i], ' ');
    writeln;
    
    forged_coin := 0;
    if a[1] + a[2] = a[3] + a[4] then begin
        real_coin[1] := a[1];
        real_coin[2] := a[2];
        if real_coin[1] = a[5] then
            forged_coin := 6
        else forged_coin := 5;
    end
    else begin
        real_coin[1] := a[5];
        real_coin[2] := a[6];
        if a[1] + a[2] = real_coin[1] + real_coin[2] then begin
            real_coin[3] := a[1];
            real_coin[4] := a[2];
            if real_coin[1] = a[3] then
                forged_coin := 4
            else forged_coin := 3;
        end
        
        else begin
            real_coin[3] := a[3];
            real_coin[4] := a[4];
            if real_coin[1] = a[1] then
                forged_coin := 2
            else forged_coin := 1;
        end;
    end;
    
    writeln(forged_coin);
end.