Переведите двоичное число в десятичную систему счисления : 101100, 101 ; 1000000, 111 ; 101111001

101100: 44 101: 5 1000000: 64 111: 7 101111001: 377

1.      на рабочем столе размещаются небольшие картинки —  значки и ярлыкиобъектов  (ярлык — это картинка с небольшой стрелочкой в нижнем левом углу). они обеспечивают быстрый доступ к объектам — различным устройствам и программам компьютера, а также текстам, рисункам и другим документам, созданным с компьютерных программ.значокмойкомпьютер  обеспечивает доступ к различным устройствам компьютера. в  корзину  отправляется «мусор» — всё то, что уже не нужно хранить в памяти компьютера. а значок мои документы быстро найти созданные вами рисунки и другие документы. если ваш компьютер связан с другими компьютерами, то на рабочем столе обязательно присутствует значок  сетевое окружение.

var a: array[1..100] of integer;

    i,n,m,k: integer;

begin

    write('кол-во элементов массива: '); readln(n);

    for i: =1 to n do

    begin

      write(i,' элемент = ');

      readln(a[i]);

    end;

    writeln('введённый массив');

    for i: =1 to n do

    write(a[i]: 5);

    writeln;

    write('заданное число: '); readln(m);

    for i: =1 to n do

    if a[i]> m then inc(k);

    writeln('элементов > ',m,' = ',k);

    readln;

end.

надеюсь правильно, удачи))