Выполнить последовательный перевод числа q из одной системы счисления в другую: 10-> 2 -> 16-> 10. q= 2018

10 -> 2 2018 / 2 = 1009. остаток 0. 1009 / 2 = 504. остаток 1. 504 / 2 = 252. остаток 0. 252 / 2 = 126. остаток 0. 126 / 2 = 63. остаток 0. 63 / 2 = 31. остаток 1. 31 / 2 = 15. остаток 1. 15 / 2 = 7. остаток 1. 7 / 2 = 3. остаток 1. 3 / 2 = 1. остаток 1. берём ответ последнего деления и идём по остаткам от конца до начала. 11111100010 2 -> 16 от конца берём по 4 цифры и считаем их значение по заранее составленной таблице. [111][1110][0010] = [7][14][2] = 7e2 16 -> 10нумеруем цифры от конца до начала индексами в порядке возрастания, начиная от 0, впоследствии каждую цифру нужно умножить на порядок той системы счисления, из которой производится перевод (16), возведённой в степень, равную индексу, и всё сложить.7e2 = [7][14][2] = 7 * 16^2 + 14 * 16^1 + 2 * 16^0 = 1792 + 224 + 2 = 2018

program srednball;

var a,b,d : integer;

        c : real;

begin

    writeln (' vvedite balli, nabrannie sportsmenom po 3 vidam sporta');

    readln (d);

    readln (a);

    readln (b);

    c: =(a+b+d)/3;

    writeln (' srednii ball= ', c: 4: 2);

    readln;

end.